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U na de las bases de datos 
más potentes y amigables 
que hemos visto en el 
entorno de trabajo de un 
PCW, con tratamiento 
indexado de ficheros. 
Análisis completo de todas 
sus posibilidades. 
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DISEÑO DE CIRCUITOS 
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POR ORDENADOR 
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HOBBY PRESS 


COMO CONSTRUIR BASES DE DATOS 
INTELIGENTES EN LISP (CPC) 
El Lisp es el lenguaje de la lA, y ésta funciona porque maneja 
grandes cantidades de datos de forma inteligente. Damos un listado 
completo explicando la manera correcta y fácil dc hacerlo. 
r-"\ 
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BOMBARDEROS 
DEL BASKET 
(CPC) 


Pon a prueba tu habilidad encestando 
por detrás de la línea de 6,25. ¡Hasta 
dos jugadores! 
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Exclusiva 
de Comdex. 
Lanzamiento 
mundial de módem 


El principal problema para utilizar 
los modems estadounidenses en 
Europa y viceversa es que tienen 
diferentes estándares. Estados 
Unidos utiliza tonos Bell para sus 
tipos de 300 y 1.200 baudios, 
mientras Europa conecta con 
CCITT en las dos categorías. 
Afortunadamente para algunos, la 
categoría Bell 1200/1200 es 
compatible con la categoría 
1200/1200 CCITT, pero con el resto 
es imposible. 
Una empresa de Nueva York va a 
presentar un módem global, el 
Wordlink 1200, con un precio y un 
tamaño muy competitivos. Por 200 
libras se puede conseguir un 
Bell/CCITT 300 y un modém de 
1.200 baudios con un sintonizador 
de banda giratorio y un tamaño 
como el de una cajetilla de 
cigarillos. 
Chris Coffin, de Touchbase 
Desing, ha asegurado que pensaban 
venderlo a ambos lados del Atlántico 
y que esperaban que este nuevo 
módem acabe con la competencia. 
Lo que parece claro es que 
Wordlink 1200 será un triunfador, 
especialmente entre los propietarios 
de ordenadores portátiles. Un 
periferico más para el Amstrad PC. 
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Emulación VT240 
para compatibles IBM/PC 


Microhouse, S.A. distribuidor oficial de Polygon, Inc. en 
España acaba de presentar el Poly-COMM/240. Este 
programa aporta la emulación VT125, VT240, VT241, 
VT52, VTI02 y VT220 y transferencia a ficheros con 
miniordenadores Digital a los equipos compatibles con IBM 
PC, XT y AT. 
El Poly-COMM/240 es un paquete totalmente integrado 
al entorno DEC. Así, soporta la tecla COMPOSE, REGIS 
(Remote Graphics Instruetion Set), EDT, DATATRIEVE, 
VAXTPU, FMS. DECGRAPH, ALL-IN-I, WPS-PLUS y 
A.TO-Z, entre otras aplicaciones. 
El Poly-COMM/240 realiza, además, la transferencia de 
ficheros ASCII o binarios libre de errores entre 
miniordenadores o superminiordenadores DEC y equipos 
compatibles IBM/PC. 
El Poly-COMM/240 es tan fácil de utilizar que, incluso, 
añade una (cHotkey)) que permite conmutar 
instantáneamente entre el modo terminal V AX y una 
aplicación MS-DOS sin perder el enlace de comunicaciones 
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Diseño asistido 
en el Arnstrad PC 
El seno asistido por 
ordenador, también 
llamado CAD 
(Computer Aided 
Drafting), se está 
poniendo de moda 
porque demuestra, a 
cada golpe de tecla en el 
ordenador, la cantidad 
de dinero y tiempo que 
se puede ahorrar con un 
software bien hecho, en 
un campo tan difícil y 
crítico en costos, como 
la ingeniería y el diseño. 
El advenimiento del 
Amstrad PC nos ha 
puesto, al alcance de la 
mano, todo el excelente 
software de CAD que 
existe para IBM. Uno 
de los mejores, a pesar 
de ser un recién llegado 
a la palestra, es el 
programa «AutoSketch", 
creado por «Autodesk", 
padres a su vez del 
paquete más famoso en 
este dominio: 
«AutoCad". Las 
pretensiones de 
«AutoSketch", sin 
apearse del carro de la 
profesionalidad, título 
que ostenta con toda 
justicia, son bastante 
más modestas que la de 
su hermano mayor, 
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«AutoCad". Por lo 
menos, la diferencia de 
precio está clara: 
aproximadamente 
18.000 ptas. ($ 80). 
Resulta extraño ver una 
aplicación en la que el 
aspecto de lo que se 
muestra en pantalla, en 
este caso dibujos, posee 
una calidad mucho 
menor que cuando se los 
vuelca a una impresora 
gráfica de alta calidad o 
a un plotter. Con 
«Auto Sketch", uno 
puede hacer gráficos de 
diseño profesional y de 
cualquier tipo; se les 
pue?e ampliar, rotar, 
copIar, mover, etc. 
Además, su capacidad 
de «zoom" es 
impresionante, ya que se 
trata de un programa 
orientado a objetos, en 
lugar de a puntos o 
pixels. Por último, la 
interface de usuario hace 
un uso extensivo del 
ratón, ventanas y 
menús. Se pueden hacer 
operaCIones 
extremadamente 
complejas sin apenas 
tocar el teclado. En 
definitiva, un programa 
que le viene perfecto a 
la configuración base del 
Amstrad PC. 
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Informática 
en el aula 
La editorial Alhambra ha creado una 
nueva colección de libros, llamada 
«Informática en el aula», dedicada al tema 
de la informática. Con ella se pretende 
introducir al lector en los aspectos menos 
divulgados de la informática. 
La lógica del ordenador aborda el 
complicado mundo del funcionamiento 
interno del ordenador, de su proceso 
lógico, a través de una serie de ejercicios 
fáciles y divertidos y conceptos teóricos 
plasmados en un lenguaje asequible a 
cualquier lector. Todo esto le hace un 
libro idóneo para la iniciación en el 
proceso interno del ordenador. 
Dentro de esta colección se pueden 
destacar también dos libros en los que se 
trata de un tema que, a simple vista, 
puede resultar bastante árido: la 
electrónica digital aplicada a los 
ordenadores y la informática. En el 
primero de ellos, Electrónica 1: Elementos 
y componentes, se estudian los 
dispositivos, el álgebra de Boole, los 
sistemas de numeración, los códigos y las 
distintas tecnologías de fabricación, pero 
evitando, en lo posible, conceptos y 
expresiones matemáticas. 
El segundo de ellos, Electrónica 11: 
Estructura del ordenador, consigue dar 
una visión global del funcionamiento y los 
elementos que componen un ordenador, 
así como unas nociones de diseño de los 
circuitos. 
En definitiva, esta colección está 
dedicada a todas aquellas personas que, 
mediante un lenguaje preciso, pero 
sencillo, deseen conocer los procesos 
estructurales del ordenador. 


E.tl.E.I.JoIIll' 
\llfOI'''
',c" 


. 


... "1\1 
"(
 


. 


, ELECl". · 
- EL.E¡._{iONICA l. 
y ca 'rIEN1"os . 
.. IMPONEN1"ES 
,- 
.. 



 \\'. 


O
iU


 


Si

P' 
rt-\.of'i. 


. . 
. . 


¡ 


. 
. 


, 


L.AL.OGI
 
DEL. ORD'EN 


7i'h,m 



 


= Q9) 
--_.-.-.
 -- 
.....------. 
- 
-.........--.......-. 
.,.,.------ 
-- 


el. Ferraz, n.o 66-1. 0 B. 28008 MADRID 


Interface con 
SQL/DS para el SPSS 


Micromouse, S. A., distribuidor exclusivo de la 
gama de productos de SPSS, lne. en España, anuncia 
la disponibilidad del SPSSx Capture: interface del 
programa de análisis estadístico SPSSx con el 
SQL/DS. 
El SQL/DS, que se encuentra disponible para los 
equipos IBM CMS, se está convirtiendo rápidamente 
en un estándar de la industria para sistemas de cuarta 
generación, y lenguajes de tipo query. Por tanto, la 
nueva opción del SPSSx, el SPSSx Capture, 
constituye un puente entre el sencillo, pero potente, 
sistema de soporte a la decisión SPSSx y la flexible 
base de datos relacional SQL/DS Se resaltan, a 
continuación, algunas de las muchas posibilidades de 
estos dos programas utilizados conjuntamente: 
- Analizar la información almacenada en SQL/DS 
mediante potentes comandos, y presentar los 
resultados en forma de tablas, listados o gráficos. 
- Crear con una periodicidad diaria, semanal o 
mensual informes o análisis basados en datos 
permanentemente actualizados mediante SQL/DS. 
- Producir cualquier tipo de tabla, sin limitación 
en cuanto a la disposición de los diferentes elementos, 
y con una calidad suficiente como para enviar el 
trabajo directamente a fotocomposición (con la opción 
SPSSx Tables). 
El SPSSx Capture puede ser utilizado por personal 
del Centro de Proceso de Datos de la empresa, sin 
experiencia previa en SPSSx, permitiendo el acceso a 
los datos almacenados y mantenidos con SQL/DS. De 
esta forma dichos técnicos no se verán en la necesidad 
de crear un programa que extraiga información de los 
ficheros mantenidos con SQL/DS. Por otra parte, y 
dado que Capture sólo realiza operaciones de lectura 
sobre los archivos SQL/DS, los datos almacenados en 
dichos archivos se encuentran protegidos contra 
cualquier posible error humano de programación que 
pudiese dañados. 
El SPSSx Capture resulta también idóneo para los 
usuarios finales con cierta experiencia en SQL/DS, 
pero que desean añadir a su sistema la potencia de 
análisis de datos proporcionado por el SPSSx de 
SQL/DS, los usuarios pueden obtener información 
actualizada sin depender del personal del Centro de 
Proceso de Datos. 
Por último, es imprescindible resaltar que Capture 
proporciona acceso directo al SPSS Graphics 
permitiendo dibujar una amplia variedad de gráficos 
de tipo financiero y mapas sobre diferentes perifericos. 
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BASES DE DATOS EN LISP: 
¿COMO HACERLES 
PREGUNTAS? 


Roberto G. Bernal 
Una de las más curiosas aplicaciones de LISP está en el terreno 
de la gestión de bases de datos (BD). En los próximos artículos de esta 
sección contaremos algunas ideas referentes a BD y su tratamiento en LISP 
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Una BD e, una colección de objeto, 
junto con unas funciones para obtener 
información sobre los objetos de la BD, incluir 
nuevos objetos en la BD y seleccionar objetos de 
la BD (que cumplan alguna propiedad especificada). En 


definitiva, una base de datos no es sino un tipo 
abstracto de datos (TAD). Si no recuerdas qué es 
esto, puedes consultar el último artículo de esta 
serie, donde se trata ligeramente este tema. Para 
trabajar con un T AD es preciso fijar una 
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representación de los elementos (olljetos) que 
constituyen el tipo y construir funciones que 
simulen las operaciones del TAD. 
En la lA las bases de datos se utilizan además 
como representación del estado del conocimiento 
de un cierto sistema. Por ejemplo, supongamos 
que tenemos un robot en casa encargado de 
realizar las tareas que no nos gusta hacer o de las 
que no tenemos tiempo (ni ganas) para ocupamos 
(¡no os preocuPéis que todo llegará!). En primer lugar, 
nuestro robot debe tener un plano de la casa 
indicándole dónde se encuentra cada objeto: 
puertas, ventanas, sillas, grifos, platos, vasos, ete. 
Esta información sobre la casa constituye una 
base de datos que el robot utilizará para moverse 
por ella. Todos los cambios de muebles, puertas 
y tabiques habrá que notificárselos a nuestro 
robot, ¡SO pena de que nos arroje la tarta de nata 
que os traía de la cocina al tropezar con una 
banqueta que inadvertidamente habíamos 
colocado en su camino! (El presupuesto no nos ha 
llevado para dotar al robot de visión artificial.) 
También podría tener una BD de las acciones 
que ha llegado a cabo para realizar un objetivo, 
con lo que podríamos preguntarle por qué hizo 
esto o lo otro y además tendría capacidad de 
aprender. \' eamos un ejemplo de esto en un caso 
sencillo. Supongamos que nuestro robot tiene un 
cubo verde encima de una mesa. Sobre el cubo 
verde tiene un cubo rojo del mismo tamaño que 
el cubo verde. Para mover los cubos tiene un 
brazo con el que sólo puede mover un cubo cada 
vez. Ahora le pedimos al robot que coloque el 
cubo verde sobre el cubo rojo. Para realizar esta 
tarea, tendrá que tener el cubo rojo despejado (es 
decir, sin ningún cubo encima de él) de modo 
que pueda colocar encima el cubo verde: 
1. Despejar el cubo rojo. (Subobjetivo). 
Esta condición ya se verifica, razón por la cual 
no ha de hacer nada para cumplir este 
subobjetivo. Luego habrá de tener despejado el 
cubo verde para poderlo coger: 
2. Despejar el cubo verde. (Subobjetivo). 
Para despejar el cubo verde habrá que quitar 
todos los cubos que estén sobre él. El único cubo 
que está sobre el cubo verde es el rojo. Por 
tanto, es suficiente con que haga: 
2.1. Colocar el cubo rojo sobre la mesa. 
(Acción). 
Finalmente: 
3. Colocar el cubo verde sobre el cubo rojo. 
(Acción). 
La BD estaría formada por la secuencia de 
subobjetivos y de acciones 1, 2, 2.1 Y 3. 
Otra BD que nuestro robot multiusos podría 
tener es la de las tareas que debe hacer para 
cumplir la misión que le hemos encomendado. 


Inteligencia 


ARTIFICIAL 


Tomemos el ejemplo de los cubos. Otro modo de 
resolver el problema es pensarlo al revés, es 
decir, partir de la situación final y pensar en las 
posiciones desde las cuales se llega en un solo 
paso a ella. Luego, tomar cada una de estas 
posiciones y repetir el proceso. Todos los paSOS 
dados para llegar a las situaciones anteriores se 
guardan en una base de datos. 
Todo esto no es ciencia ficción ni tan siquiera 
el futuro: en muchos laboratorios de lA es ya 
una realidad. Pero antes de llegar a conocer 
cómo se puede conseguir que un robot nos barra 
la casa, hemos de aprender muchas otras cosas. 
Dedicaremos este primer artículo sobre RD a la 
obtención de información. Debemos ser capaces 
de preguntar a la RD, bien por un objeto 
específico, bien por un conjunto de objetos 
parcialmente identificados por cumplir una 
propiedad (por ejemplo, en una base de datos 
sobre programas para CPC464 y compatibles, 
podríamos pedir «encontrar todos los 


El aumento de los procesado res 
y la baja de precios de las memorias, 
acabarán por imponer las bases de datos 
relaciona les . 


simuladores de vuelo» o «encontrar todos los 
intérpretes de LISP publicado
 por Hobby Press». 
Representaremos los objetos de la BD por un 
nombre y un conjunto de propiedades con sus 
valores. El nombre deberá ser cualquier cosa que 
identifique perfectamente al objeto (este nombrr. es 
lo que se conoce como clave). 
Para representar estas informaciones en 
MLISP tomaremos como nombre un 
identificador y la lista de propiedades del objeto 
será la lista de propiedades del identificador. 
Veamos algunos tCiemplos de objetos: 


Nombre (clave): HSFSV1 
Propiedades: 
Nombre HARRIER STRIKE FORCE 
Autor ROD HYDE 
Tipo SIMULADOR DE VUELU 
Editor MIRRORSOFT 
Año 1985 
Nombre (clave): MLISP1 
Propiedades: 
Nombre 
Autor 
Tipo 


MLISP 
ROBERTO G. BERNAL 
INTERPRETE 
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Lenguaje 
Yersión 
Editor 
Año 


LISP 
1.0 
HOBBY PRESS 
1986 


Dc la observación de estos dos ejemplos 
podemos concluir que no todos los objetos de l
 
BD tienen que tener las mismas propIedades m el 
mismo número de propiedades. 
También hemos de tener una lista de los 
objetos que forman la base dc datos. En el 
ejemplo de la BD sobre programas par
 nuestro 
ordenador ,esta lista podría ser la propIedad 
OBJETOS del identificador PROGRAMAS. Los 
nombres de propiedades en LISP deben ser 
átomos literales, pues en otro caso sería imposible 
recuperar la información almacenada (por la forma 
que tiene de buscar el intérprete de LISP). Recordad 
que, en MLISP, para asignar valores a 
propiedades se utiliza la función PUTo Entonces, 
para inicializar la lista de objetos de la BD con 
las dos claves de programas de arriba, 
escribiríamos: 


(PUT 'PROGRAMAS % identificador 
'OBJETOS % propiedad 
'(HSFSYI MLISPI» % valor 
Para introducir las fichas podríamos escribir: 
(PUT 'HSFSYI 
'NOMBRE 
'(HARRIER STRIKE 
FORCE» 
(PUT 'HSFSVI 
'AUTOR 
'(ROD HYDE» 
PUT 'HSFSYI 
'TIPO 
'(SIMULADOR DE 
VUELO»
 
(PUT 'HSFSYI 
'EDITOR 
'MIRRORSOFT) 
(PUT 'HSFSVI 
'FECHA 
1985 ) 


De la misma forma podriamos rellenar la 
segunda ficha (sólo que el nombre del autor 
habría que ponerlo como (ROBERTO G- 
BERNAL) Y la versión como vI-O, pues el 
punto "." en LISP no puede formar parte de 
idcntificadores, ya que se utiliza como constructor 


Diseñar una base de datos capaz 
de C< dialogar" en lenguaje natural, 
es uno de los retos más. importantes 
de la 1.A. 
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de pares (A.B) ). Sin embargo, este proceso de 
introducir datos en la BD es lento, pesado y 
aburrido. Vosotros podéis intentar diseñar una 
función que inserte objetos de una forma más 
ágil y elegante. Debéis pensar cuáles serían sus 
argumentos y cómo han de especificarse (cómo hr¿y 
que escribir/os). En el próximo artículo 
construiremos la función con las sugerencias que 
enviéis a la redacción de esta revista. 
Cuando se solicita información de una BD, se 
suele describir parcialmente un objeto, 
especificando los valores de algunas de sus 
propiedades, al tiempo que se indican las 
propiedades del objeto sobre las que deseamos 
información. Se espera entonces a que el sistema 
nos devuelva los valores de las propiedades que 
no conocíamos. Por ejemplo, la petición 
«encontrar todos los intérpretes de LISP para 
CPC464" indica que se está interesado sólo en 
intérpretes de LISP, no en intérpretes de Basic o 
compiladores de Pascal. Además, sólo nos 
interesan los que halla pdra CAPC464, no nos 
importa los que haya para otras computadoras 
(que no sean compatibles con CPC464). En 
nuestra base de datos de programas para esta 
computadora, la petición de arriba la podríamos 
especificar de la siguiente forma: 
Tipo INTERPRETE 
Lenguaje LISP 
El sistema de la BD puede elegir el resto de las 
propiedades como quiera. 
El programa LISP que publicamos esta semana 
sirve para obtener información de una base de 
datos como la que hemos descrito en el artículo. 
Las peticiones a la BD son listas cuyos elementos 
son o espccificaciones o preguntas sobre una 
propiedad concreta. Por ejemplo: 
((NOMBRE ?) (TIPO INTERPRETE) 
(LENGUAJE LISP) (FECHA ?» 
pediría nombres y fechas de edición de todos los 
intérpretes de LISP que hay en nuestra BD. 
Cada petición sobre una propiedad en concreto 
debe tener dos elementos: el primero es el 
nombre de la propiedad; el segundo puede ser o 
el valor de esa propiedad (si se desea especificar 
un objeto) o una interrogante "?" (si lo que se 
quicre es obtener información sobre esa 
propiedad). 
La primera parte del programa (la función 
ENCAJA) compara un objeto determinado de la 
BD con la petición que se le hace. 
Devuelve NO en el caso de que el objeto no 
corresponda a la petición hecha o bien a la lista 
de los valores dc las propiedades por las que se 
preguntaba. Por 
jemplo: 


(ENCAJA 'MLISPI' ((NOMBRE ?) 
(TIPO INTERPRETE) 
(LENGUAJE LISP) 
(FECHA ?» ) 


devolvería: 



ARTIFICI 
,
 


«NOMBRE MLISP) (FECHA 1986)) 
La segunda parte (la función BUSCA) tiene 
como entrada el identificador de la BD -que 
debe tener como valor de la propiedad 
OBJETOS una lista de objetos (los elementos de 
la BD)- y una petición. Se encarga de ver que 
la petición es sintácticamente correcta y mira si 
cada uno de los objetos de la BD puede 
ENCAJAR con la petición. Finalmente, escribe 
la respuesta en una forma más agradable. La 
pregunta sobre intérpretes de LISP debería 
hacerse de la siguiente forma: 


(BUSCA 


'PROGRAMAS 
'( (NOMBRE?) 
(T.INTERP.) 
(L. LISP) 
(FECHA?) )) 


Antes de acabar debo indicaras tres cambios 
que se han hecho al intérprete de MLISP: 
1. Referente a la forma de evaluación de las 
funciones AND y OR: 
1.1. En el fichero LISP.DAT, cambiar la línea 
que dice: 
"AND(SUBR 43)" por "AND(FSUBR 43)", 
Y la línea que dice "OR(SUBR 44," por 
"OR(FSUBR 44)". El cambio se puede hacer 
con un procesador de textos o, si no tienes 
alguno, con el siguiente programa 
10 OPENIN' 'lisp.dat" :OPENOUT' 'lisp.dat" 
20 WHILE NOT EOF 
30 INPUT#9,a$ 
40 IF a$ = "AND(SUBR 43)" THEN 
a$ = "AND(FSUBR 43)" 
50 IF a$ = "OR(SUBR 44)" THEN 
a$ = "OR(FSUBR 44)" 
60 PRINT#9,a$ 
70 WEND:CLOSEIN:CLOSEOUT 
1.2 En el fichero LISP. BAS sustituir las líneas 
1800 a 2020 por las siguientes: 
1800 IF GL = NL THEN EV = T:RETURN 
1810 ST = T(GL):GOSUB 7000:GOSUB 
12990 
1820 IF EV = NL THEN GOTO 8000 
1830 GOSUB 8000:GL = ST:GOTO 1800 
2000 IF GL = NL THEN EV = NL:RETURN 
2010 ST = T(GL):GOSUB 7000:GOSUB 
12990 
2020 IF EV < > NL THEN GOTO 8000 
2030 GOSUB 8000:GL = ST:GOTO 2000 


2. Referente a problemas con la recogida de 
basura: 
En el fichero LISP. BAS, añadir al final de la 
línea 20020 las dos instrucciones siguientes: 


Inteligencia 


¿ 


L 


711 ) 

 


rn 


l 



 


, 

 
, 


A pesar de la magnificencia del LISP, 
en este tipo de programas el PROLOG es, 
sin duda, el rry por su proPio motor de 
inteligencia. 


l 


1 


J 


MG = TRC:GOSUB 19000 


3. Problemas con la función reversc: 
En el fichero LISP. BAS, sustituir la línea 
42020 por 
42020 CH = H(LIS):GOSUB 
5000:CT = CR:LIS = T(LIS) 
(El problema está en la asignación CR = CT.) 
En el próximo artículo hablaremos de 
demonios infiltrados en las BD. 
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Gran carácter 


e on este pequeño programa podrás inclúir 
caracteres gigantes en tus propias realizaciones, y, 
además, de forma muy sencilla. Para utilizado teclea 
el programa 1 y ejecútalo, tras la ejecución del 
programa y después de autocomprobar que no 
contiene errores se grabará en disco o cinta el trozo 
binario. 
El binario lo que realiza es implementar dos nuevas 
instrucciones en el Basic del Amstrad: ¡TOP y 
¡BOT. Los nuevos caracteres ocuparán dos líneas de 
ancho, ¡TOP se utiliza para imprimir la primera 
línea y ¡BOT para imprimir la segunda, es decir, la 
parte inferior de los caracteres. Esto, aunque a priori 
puede resultar incómodo, posibilita escribir 
caracteres, en bicolor. 


INSTRUCCIONES DE MANEJO 
Una vez tenga la copia en disco o cinta resetee el 
ordenador y teclee: 
Memory 25999 
LOAD "GRANCHAR.bin" ,26000 
call 26000 
pulsando RETURN o ENTER al final de cada 
línea. 
Después teclee: 
A$ = "AMSTRAD SEMANAL" 
ITOP. @A$ 
Como habrá podido comprobar, sólo aparecerá la 
pa
te superior de la frase contenida en A$ 


Si teclea ahora: 
IBOT, @A$ 
obtendrá, tal y como esperaba, la parte de abajo de 
la frase. 
Ahora y tras hacer un CLS, teclee: 
ITOP, @A$: print:¡BOT, @oA$ 
El programa DEMO es una demostración de las 
posibilidades de estos dos nuevos comandos. 
Esperemos que le guste. 


'" 



 
e 
- 
.. 
lit 
:1 
e 


11 REI1 DEI10STI¥ICIo. 
2. BIGt='MSTI¥IO S9WW.' 
31 I10DE 1 
4. FOR looP= 1 TO 12 
5. PRINT TAB(.) ¡:PEN 2: ITOP ,iBIG$:PRI 
NT 
" PEN 3: :Bor ,aBIG$ 
71 NEXT lOOP 
B' PEN 1 
" &OTO " 


l. REI1 rARACTERES 61 IifWTES 
2. R8'I MSTI¥ID SBWf\l 
31 REI1 ------------------ 
4. S'1ttBOl AFTER 32 :HEI1DRY 25999 
51 DIRECCI1Jf=261.. 
61 FOR LJ1F14. TO 21. STEP I':READ M 
T$,CHECK 
7. CS
':FDR A=I TO lEN(MT$) STEP 2 
: BYTE=VAl ('" f/11 J)S(MT$ ,A, 2» 


B' CS
CSlJ1tBYTE:PDKE DIRECClo.,BYTE 
:DIRECCIIJf=DIRECCIINtI:/'£XT A 
91 IF CSlJ10CHECK THEN PRINT CHR$(7)t 
'Error .n linu'¡lin:EtI) 
1.. PRINT Iin¡.Ok....:NEXT lin 
111 SPEED WRITE 1 
121 SAVE 'granchar .bu" :SAVE 'grancha 
r .bin' ,b,26'" ,dir.cc ion-2611' 
1311'AlL 261":00 
14. MTA '1996521'966c3dlbcal65c3aB65 
c3c365S44fd8,2579 
151 MTA 424fd41'3t2lcda5bb221766cdd6 
65477.d62'cd,2319 
161 MTA .3653tfBcdSabb2311f2c9cddtS65 
477.d621cd.3,3119 
171 MTA 653,f9cd5abb231'f2c9dd66'ldd 
6"'7,235123,2333 
18. MTA 56,bc9,5c5261'6f292929,dSbl7 
6619,53,fBcd ,2426 
191 MTA a5bbtbtl'6887,12131213231'f8 
afl2d.lc911,2137 
211 MTA ..........,. 


--- 


, 
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Con el fin de acelerar lo más posible el correo, y poder resolver o contestar a to- 
das las dudas y sugerencias que llegan a nuestra redacción, a partir de esta semana 
os rogamos, en beneficio de todos, consignar en el sobre, en lugar bien visible, una 
de las denominaciones siguientes: 



 


- Suscripciones AMSTRAD. Para todos aquellos casos relacionados con petición de 
cintas, números atrasados, formalización de suscripciones, devoluciones etc... 
Mercado Común AMSTRAD. Compras, ventas, intercambios, clubs... 
Sin duda alguna AMSTRAD. Para que nos enviéis todas vuestras dudas. 
Serie Oro AMSTRAD. Para los programas que nos enviéis para su publicación. 
Sugerencias AMSTRAD. Para vuestras críticas, sugerencias o cualquier opinión 
que queráis vertir sobre la revista. 
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POKES 
PARA "DEFENDER" 


por Jord; Soldev;la Melgarejo 
Podríais abrir una sección destinada 
a trucos, pistas, pokes, soluciones, etc. 
de los diferentes juegos que ocupan un 
importante volumen en el mercado do 
software (esta práctica está muy exten- 
dida entre las revistas sobre el Amstrad 
que se publican en Gran Bretaña como 
pude comprobar). Creo que una sec- 
ción de este tipo, abierta a la partici- 
pación de los lectores, despertaría un 
gran interés, pues nos ayudaría a ex- 
plotar todos nuestros programas al má- 
ximo y a apaciguar nuestra desespera- 
ción ante aquellos juegos que más difi- 
cultad nos ofrezcan. 
Permitidme que os muesrre un ejem- 
plo que yo mismo he desarrollado con 
mis casi nulas nociones de 
código máquina. Se trata del juego 
de acción (que tanto éxito tuvo en 
las salas recreativas) de ALLIGATA 
SOFTWARE: «DEFENDER". 
El programa que os adjunto permite 
acceder al juego sin tener que pasar 
previamente por el filtro del código de 
acceso (con lo que nos podremos des- 
hacer del dichoso papelito), y además 
nos dará la posibilidad de vidas infini- 
tas y bombas infinitas (o bien fijar el 
número de ambas). 
He aquí el listado (no os mando cin- 
ta porque es muy corto): 
10 MEMORY&3FFF 
20 LOAD «DEFEND", &4000 
30 MODE 0 :BORDER 0: 
num = l:bom = 1 
40 INK 0,0 :INK 1,23:INK 
2,2:INK 3, 18:INK 4,24: 
INK 5,26,6:INK 8,6:INK14,26 
50 INPUT <NIDA INFINITA»; 
S$:S$ = UPPER$ ($$) 
60 IF S$ = «S" THEN POKE 
24809,0 :POKE 24810.0 :GOTO 80 
70 INPUT «NUMERO 
DE VIDAS,,; num 
80 INPCT «INFINITAS 
BOMBAS,,; T$:T$ = UPPER$ (T$) 
90 IF T$ = «S" THEN POKE 
24072,IO:POKE 24073,0:GOTO 110 
100 INPUT «NUMERO 
DE BOMBAS,,; bom 
110 POKE 25828. num; 
POKE 25833, bom 
120 CALL&4026 
Una observación: Si se dispone del 
programa en disco, el fichero DEFEND 
es el que contiene el programa en sí (de 
17 K), que no hay que confundir con 
los del título de la presentación. Si se 
posee el programa en cinta (que será 
lo más corriente) no debe de haber 


ningún problema pues el fichero prin- 
cipal tiene este nombre (para ganar 
tiempo se pueden saltar los dos pri- 
meros ficheros TITLE y DATA). 
Animo y a matar invasores! 
Ah!, (Las instrucciones INK de la 
línea 40 nos permitirán modifi- 
car los colores del juego a nuestro gus- 
to). 


SWRITE 


por: Eduardo Olías Suárez 
Este programa está basado en la ru- 
tina del firware BC68. 
RUTINAS: 
Existen dos rutinas principales las re- 
ferentes a los RSX SPEED y HELP. 
después las siguen la de impresión la ac- 
tivación RSX y los datos de impresión: 
PRIMERA IMPRESION : 
Está destinada a informar al usuario 
de la activación de los nuevos coman- 
dos. 
HELP: 
Este comando es siInplemente una 
información de las velocidades disponi- 
bles así como del parámetro a aplicar 
en el comando SPEED. 
SPEED: 
Este comando es el que llama a la ru- 
tina de velocidades del programa. Su 
forma es SPEED@X el parámetro 
comprende desde el1 al 8 si el paráme- 
tro es distinto a esta serie de números 
sale en pantalla mensaje P ARAM RSX 
ERROR/ 
MADRID 11-8-1986 
10 '******************
*******
***** 
20 '* 
:30 '
. 
40 '* 
50 't 


SWRn
 


PUR £DUARfiÚ OLlAS 
MADRID 7-8-86 


60 ..* 
70 '******************************** 
80 
90 
100 MUDE 2 
110 ME
ORY &9FFf 
120 LOCAT£ 1,1:PRINT .Cargan
o datos 


130 x=1tAOOO 
140 READ A$ 
ISO IF A$=D*" TH£N CAll &AOOO:D£l£ff 
:END 
160 A=VAl ("b"+AS) 
170 PúKE X,II 
180 X=X+l 
190 GiJTU 140 
200 DATA 3£,2,CO,£,8C,21,FO,AO,CO,£6 
IAO,21,4,l,CD,75,BB,21,fD,AO,CD,
6,A 
O,C3,8F,Al,3£,2, CD,E,8C,11,lD,Al,CO 


,E6,AO,21,4,2,CD,75,B8,21,36,Al,CD,E 
6,AO,21,6,2,CO,75,88,21, 50,Al,CO,£6 
,AO,21,8,2,CD,75,BB,21,6A,A1,CD,E6,A 
O,21,A,2,CD,75,8B,21,84,A1,CO,E6,AO, 
21 
210 DATA ú,1,CD,75,BB,11,2,O,21,
6,O 
,CO,£A,8B,21,82,O,11,O,O,CO,F8,BB,11 
,DC,O,21,O,O,CD,f8,BB,21,7£,f
,11,O, 
O,CO,F8,BB,21,O,O,11,24,FF,CO,F8,BB, 
C9,DO,7E,O,FE,1,28,1A,f
,'l,'l8,1D,FE, 
3,28,20,F£,4,28,23,F£,S,28,26,FE,6,2 
8,29,FE,7,28,2C,18,35,3E,19,21,40,1, 


4.-, 
10 


220 DATA 2A,3E,1E,21,D
,O,18,23,3E,3 
2,21,A7,O,18,lC,3£,l£,21,85,O,18,15, 
3t,19,21,6f,O,18,t,3E,5,21,5f,O,18,7 
,3£,2,21,54,O,18,O,(O,68,8C,(9,21,26 
,A1,CD,E6,AO,C9,7E,fE,ff,C8,Cu,5A,BB 
,23,18,F6,4ú,26,45,2£,53,4
,46.54,S7 
,4i,52,45,
f,4E,4
,57¡20;43,4f,4D,AD 


.. 
,'11 
230 DATA 4
,44,&3,20,3A,20,iC,
3,50, 
45,45,44,'lO,41,4£,44,20,7C,48,45,4C, 
SO,ff.4D,26,45,2
,48,45,4C,50,ff,50, 
61,72,61,60,20,72,73,7B,20,65,72,72, 
6f.72,Ff,31,2E,'lt,31,30, 30,30,20,42 
,6i,20J20.20,2ÚJ20.35J2fJ2£J33)3úJ30 
,30,20,42,61,fF,32,2t,2
,31,35,30,30 


!-LU 


240 DATA 42,61,20,20,20,20,20,36,2£, 
2£,33,3S,30,30,20,42,61,F
,33,2£,2£, 
32,30,30, 30,20,42,61,20,20,20,20,20 
,37,2£,2£,34,30,30,30,20,42,61,F
¡34 
,2E,2
,32,35,30,30,20,42,61,ff,1,98, 
Al,21,AA,A1,C3,01,BC,AO,A1,C3,89,AO, 
C3,lA,AO,53,50,45,45,C4,48,45,4C,DO, 
0,0 
250 DATA O,98,A1,O,O,0,0,0,* 


EFECTO TRUENO 


por: José Martínez 
Esta Amsrradidea va dirigida a con- 
seguir el efecto sonuro del trueno. que 
nos será de enorme utilidad en la con- 
fección de nuestros programas dt> jut>- 
gos. Además, nos permitirá alcanzar el 
realismo necesario para imbuirnos en 
el desarrollo del juego. 
1 REM por Josp Martínez 
5 CLS 
10 SPEED INK 2,2 
20 FOR K = 1 TO 15 
30 SOUND 
7,0,20 ,(15-k)/2,0,0,k 
40 FOR f = 0 TO 3;INK t, 
INT(RND*27),1 
50 NEXT 
60 INK 0,0:INK 1,24:INK 
2,6:INK 3,1 
1 
70 END 


VI 
el 
111 

 
- 

 
el 
-- 
.. 
lit 
I 
el 
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ADMINISTRACION 
DE FINCAS 


de Trisoft 
Con este programa los adminis- 
tradores de fincas dispondrán de 
una eficaz ayuda en su trabajo. Po- 
drán contar con dos tipos de fiche- 
ros: ficheros de propietarios y fi- 
cheros de fincas. 
En el de propietarios incluirán 
el nombre del propietario, direc- 
ción, población, banco y agencia 
(su dirección y cuenta); lectura (agua 
fría, caliente, propano, califacción...); 
liquidación fin de ejercicio o perió- 
dica; devolución o impagos; visua- 
lización en pantalla del contenido 
del fichero de cada propietario. 
Por su parte, en el fichero de fin- 
cas se expone: grabación de fiche- 
ro: finca (comunidad, urbanización, 
propietario. . .), dirección, teléfono, 
y apertura, gastos, ingresos, etc. 
Apuntes a través de pantalla y/o 
impresora. Liquidación fin de ejer- 
cicio o periódica. Visualización del 
contenido de fichero en pantalla. 


PROJECT PLANING 
Programa de análisis y evalua- 
ción de inversiones empresariales, 
integrado por un conjunto de sub- 
programas interconexos que le per- 
mitirán analizar, seleccionar y pro- 
gramar inversiones. En el aparta- 
do de análisis, el programa reali- 
za la gestión empresarial de ren- 
tabilidad de las inversiones atem- 
porales; para ello, se calculan la ta- 
sa de rendimiento contable, plazo 
de recuperación de la inversión y 
relación coste-beneficio. Flujos de 
caja brutos y netos. Valor actual 
neto de las inversiones. Tasa de 
rendimiento interno de las inver- 
SIOnes. 
El estudio de las inversiones 
temporales se realiza teniendo en 
cuenta la tasa de inflación, amor- 
tización, impuestos, coste de capi- 
tal.. . 
En la opción selección, el pro- 
grama realiza el estudio de renta- 
bilidad para varias inversiones em- 
presariales, escogiendo aquélla 
que, financieramente, sea más eco- 
nómica para la empresa. De esta 
forma, realiza cálculos para dos in- 
versiones (caso de ser más las in- 


C'3-\
\O'S° 
de 
SOFTWARE 


versiones, se estudian dos a dos), 
analizando para cada una de ellas 
su valor actual neto y tasa de ren- 
dimiento interno y deduciendo a 
partir de estos resultados la opción 
más rentable. Caso de no poder 
deducir a priori la inversión más 
rentable, el programa calcula la 
«intermedia de Fisher» (VAN Y 
TIR globales para cada una de di- 
chas inversiones en forma de un 
cuadro resumen). 
La última aplicación, programa- 
ción, se usa cuando existen varias 
inversiones realizables a lo largo de 
un período de tiempo, pero no se 
considera el carácter sustitutivo de 
las inversiones, y determina qué 
proyectos componen el óptimo em- 
presarial y en qué porcentaje par- 
ticipan. 
PROJECT PLANING es un 
programa completo y muy útil pa- 
ra asesores de empresas, pequeños 
y medianos empresarios que re- 
quieren decisiones inmediatas y re- 
sultados rápidos en el campo de las 
finanzas. 


NOMINAS 
de RPA Systems 
Programa diseñado para reali- 
zar las nóminas de los empleados 
de una empresa (hasta 1.000). Co- 
mo resultado del tratamiento de los 
datos contenidos en los ficheros, se 
podrá obtener la nómina mensual 
de los empleados, así como acumu- 
lar y obtener en su momento los 
informes y apuntes que ésta gene- 
ra de forma totalmente automáti- 
ca. 
Contenido de ficheros: Personal: 
datos personales de los empleados. 
Convenio: datos de convenio pa- 
ra las categorías. Bases S.S.: ba- 
ses de cotización por niveles. Con- 
cepto nómina: conceptos de pagos 
no regulados en convenio. Datos 
nómina: datos de empleados para 


la obtención de la nómina. Datos 
cuentas: datos de cuentas para la 
obtención de apuntes. 
Obtención de resultados: borra- 
dor nóminas, nóminas, apuntes 
contables, seguridad social. retri- 
buciones anuales. 
Todas las entradas y salidas al 
sistema serán transparentes al 
usuario, además de disponer de 
una serie de pantallas de ayuda 
que el usuario podrá consultar en 
cualquier momento. 
Los ficheros anteriormente des- 
critos serán todos de acceso alea- 
torio, consiguiendo con ello una 
excelente rapidez de respuesta en 
la consulta de los datos. 
Para el uso de este programa es 
aconsejable una segunda unidad 
de disco. 


FACTURACION 
de Zelig Software 
Este programa de F ACTURA- 
CION se presenta en dos versio- 
nes, según la capacidad de memo- 
ria del ordenador. 
Cuenta con una capacidad má- 
xima de 200 clientes, 1.000 artícu- 
los y 1.500 apuntes de albarán. 
Reúne los siguientes informes y 
documentos: listado general de 
clientes, listado de albaranes pen- 
dientes, listado general de artícu- 
los, listado de stocks bajo mínimos, 
confección de albaranes y abonos, 
confección de facturas, y confec- 
ción de presupuestos/propuestas de 
pedido. 
Otras características del progra- 
ma son los ficheros en tiempo real, 
la utilización del disco virtual, y la 
opción en formato gráfico en fac- 
turas, albaranes y abonos. 
Además de las anteriores carac- 
terísticas comunes, la versión crea- 
da para el PCW 8512 añade en su 
segunda unidad de disco los si- 
guientes ficheros (con capacidad 
ilimitada de apuntes): fichero his- 
tórico de entradas en almacén (fe- 
cha, precio, coste, cantidad y to- 
tal), fichero histótico de artículos 
facturados (fecha, precio venta, 
descuento, cantidad y total), y fi- 
chero histórico de clientes (fecha, 
artículo, precio, descuento, total, 
resumen del consumo total de ar- 
tículos por cliente). 
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Todo ello con una cuidada pre- 

entación, fácil manejo y acompa- 
nado ?e un detallado manual del 
usuano. 


BRIDGE PLAYER 
de Soft Express 


Este programa le permitirá ju- 
gar al Bridge sin tener que reunirse 
con tres amigos para ello. Escrito 
enteramente en código máquina, 
permite a un jugador realizar un 
juego completo de Bridge contro- 
lando el ordenador las otras tres 
manos. 
Dando manos al azar simula un 
juego muy realista, permitiendo al 
jugador primero declarar su ma- 
no y posteriormente, jugar las car- 
tas como declarante o defensor se- 
gún el resultado de la declaración. 
El programa tiene característi- 
ca
 
speciales. Reparte al azar per- 
mitiendo que se especifique cual- 
quier punto entre O y 28. Decla- 
rar utilizando el sistema Acol in- 
cluidos el Blakwood, Stayman, y 
dos fuertes convenciones de trébo- 
les. Sacar dobles. Facilidad post 
mortem pennitiendo que cualquier 
mano sea redeclarada o rejugada 
tan a menudo como se necesite. 
Las cuatro manos se enseñan al fi- 
nal del juego y se puede obtener 
un listado por impresora. Se pue- 
de abandonar la mano cuando se 
quiera. Se puede seleccionar la ve- 
locidad de juego. Información 
completa durante el juego de car- 
tas, cuantas bazas ha ganado ca- 
da uno, vulnerabilidad y las car- 
tas jugadas hasta la última baza. 
Modo demostración. 


GESTION PARA LA 
ADMINISTRACION 
DE FINCAS (GESFIN) 
de Microgesa 
G ESFIN es un programa dise- 
ñado especialmente para el modelo 
PCW 8512 (opcionalmente tam- 
bién sirve para el PCW 8256), y 
pensado para cubrir las necesida- 
des de la administración de fincas. 
La filosofía del programa es 
automatizar íntegramente todas las 


labores habituales del administra- 
dor de fincas, especialmente aqué- 
llas más tediosas y repetitivas, in- 
cluyendo opciones tales como cál- 
c.ulo automático de cuotas a par- 
tir de los presupuestos, emisión de 
recibos y listas cobratorias gestión 
de impagados, etc. ' 
Su utilización es extremadamen- 
te sencilla, pudiendo cualquier ad- 
ministrador obtener un 100% de 
rendimiento del programa tras 
apenas unos minutos de aprendi- 
zaje, gracias a la presentación en 
pantalla de un menú de opciones. 
G ESFIN incluye además un po- 
tente editor de pantalla completa 
que permite una cómoda y rápida 
modificación de los datos existen- 
tes. 
El programa reúne una gestión 
completa de ficheros de comunida- 
des, vecinos, datos propios del ad- 
ministrador, agencias bancarias y 
bancos. 
En cuanto a presupuestos nos 
encontramos con definición de 
partidas (hasta 10 partidas distin- 
tas), definición de subpartidas 
(hasta 99 subpartidas por cada par- 
tida), asignación de la participa- 
ción de los pisos en cada partida, 
cálculo automático de cuotas con 
las posibilidades de reparto propor- 
cional de coeficientes a partes igua- 
les por consumo y reparto por can- 
tidades introducidas manualmen- 
te, y posibilidad de confeccionar 
un presupuesto extraordinario. 
Cuenta con la opción de emisión 
de recibos (normalizados según es- 
p.ecificaciones del Consejo Supe- 
nor Bancario), listas cobratorias y 
listas de remesas para cada banco 
y los pagados en portería. 
Para la gestión de gastos y co- 
bros de cada comunidad: justifica 
gastos, realiza movimientos de ca- 
jas y bancos, balance de ingresos- 
gastos, liquidación final y gestión 
de impagados. 
Como colofón, realiza etiquetas 
adhesivas con las direcciones de los 
propietarios y emisión de circula- 
res para convocatorias de juntas de 
veCinos. 
Por cada disco de datos admite 
un máximo de 2.500 vecinos, dis- 
tribuidos en tantas comunidades 
como se quiera. 


CONTABILIDAD 
DOMESTICA 
de Indescomp, S.A. 
. Posee el funcionamiento gené- 
nco de los buenos programas de 
contabilidad doméstica, con la sal- 
vedad de q w al I o traer las cuen- 
tas definidi: pu 'de ser utilizado 
por comerci mte' 'ofesionales 


. ADMINISTRA CION 
DE FINCAS de Trisoft 
República Argentina, 22 
41011 Sevilla 
Te!. (95
) 27 72 95 
NUMINAS de RPA Systems 
Galileo, 25 
28015 Madrid 
Te!. (91) 44798 09 I 
FACTURACION 
de Zeling Software 15 
Passeig de les Germanies, 
Gandía (Valencia) 
Tel. (96) 2873921 
BRIDGE PLA YER 
de Soft Express 2 
Duque de Ji'ernán Núñez, 
28012 Madrid 
Tel. (91) 228 68 13 
GESTION PARA 
LA ADMINISTRA CION 
DE FINCAS (GESFIN) 
de Microg esa 
Silva, 5 
28018 Madrid 
Te!. (91) 242 24 71 
CONTABILIDAD 
DOMESTICA 
de Indescomp, S. A. 
Aravaca, 22 
28007 Madrid 
Te!. (91) 459 30 01 
GESTION 
DE VIDEOCLUBS 
de Mastersoft 
Centro Comercial, Local 15 
Ciudad Santo Domingo 
Algete (Madrid) 
Tel. (91) 622 12 89 
C. BASIC COMPILER 
de Microbyte 179 
Paseo de la Castellana, 
28046 Madrid 
Te!. (91) 442 54 33 



GESTION 
DE VIDEOCLUBS 
de Hastersoft 


Es una aplicación desarrollada 
por Microgesa para gestionar to- 
das las actividades propias de un 
videoclub. Está diseñada específi- 
camente para el modelo PCW 
8512 en el lenguaje M-Basic com- 
pilado. 
Maneja hasta 2.500 socios acti- 
vos y más de 5.500 títulos de pelí- 
culas. 
A través del archivo de configu- 
raciones, permite acondicionar el 
funcionamiento de los demás pro- 
gramas de la aplicación, especifi- 
cando con él toda la información 
necesaria sobre el funcionamiento 
específico de cada videoclub. 
Admite hasta siete modalidades 
distintas de alquiler, y tiene en 
cuenta el período de alquiler si 
existe algún día festivu dentro de 
ese plazo. 
La ficha dc cada cliente incluye 
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número de socio, primer y segun- 
do apellido, nombre, DNI, domi- 
cilio, código postal con la pobla- 
ción, teléfono y sistema de vídeo. 
Para la búsqueda de un socio ras- 
trea en el fichero buscando por 
nombre y apellidos y en caso de no 
encontrado, muestra la lista de 
nombres cuyo primer apellido co- 
mienza por la letra del nombre 
buscado. En consulta de un socio 
extrae información sobre la perso- 
na, incluyendo las últimas diez pe- 
lículas que ha visto y si obran en 
su poder. 
La ficha de la película incluye la 
referencia asignada por el video- 
club, sistema, título, precio al com- 
prada, si es multinacional o no y 


clasificación según su tema. El pro- 
grama anota automáticamente la 
fecha de alta, que puede ser mo- 
dificada. Incluye además la opción 
de la baja. 


C BASIC 
COMPILER 
de Microbyte 
Versión mejorada del clásico 
lenguaje C Basic, con mayor ve- 
locidad de ejecución y altamente 
flexible, diseñado especialmente 
para el desarrollo de programas de 
gestión. 
[ncluye el Linker LK-80, que 
cambia la salida del compilador 
con las rutinas de biblioteca y per- 
mite el encadenamiento de módu- 
los. 
Es éste uno de los Basic's más 
estructurados que existen, hoy 
por hoy, en el mercado. Su com- 
pilación es bastante óptima y 
puede considerarse como una ex- 
celente herramienta de desarro- 
llo. 
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. , ? 1 e P . el Presentamos la más completa gama de software para 
. 
 ordenadores Amstrad, IBM y compatibles pc. 
A 5. . . . . . Creado por las más prestigiosas empresas de software 
.., ES(!).RES de nuestro país. 


OMICRON & PROA SOFT 


PROGRAMAS EDUCATIVOS CPC 464.664. 
6128 
- Aprendo a leer 
- Formulación química 
FACTURACION CON AlMACEN CPC 464 - 664 
6128 


VALLES INFORMATICA S.A. 


CONTAVISA PCW 8256 - 8512 - CPC 6128 
- Contabilidad 
VISAJET PCW 8256-8512 - CPC 6128 
- Base de datos 


ZELlG INFORMÁTICA 


CONTABILlDADHVA CPC - 6128 
CONTROL DE STOCKS (AGENDA CPC 6128 
ELECTRONICA) 
FACTURACION, AlMACEN, PRESUPUESTA- 
CION PCW 8256 
FACTURACION, CONTROL DE STOCKS 
PCW 8512 
GRAN JUEGO DE OTMELLO PCW 8256J8512 


DESSIN 
CONTABILIDAD PARA PYMES (Posibilidad de 
Hardisc) 
FACTURACION. CONTROL DE STOCKS. (Po. 
sibilidad de Hardisc) 


DIMONI 


CONTABILIDAD PARA HARDISC 


DIGEST I Gestión comercial integrada 
DIGEST 11 Gestión índustrial integrada 


Para consultas a CPi Asesores. 
Tel: (96) 2873921 de 10 a 14 h. Y 
de 17 a 20 h., de lunes a viernes. 
Correo: Passeig de les Germanies, 
15.46700 Gandía (Valencia) 


ENCUENTRE NUESTRAS APLICACIONES EN DIVISION ONLlNE DE GALERíAS Y COMER. 
CIOS ESPECIALIZADOS. 
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Serie 
· R . 
I CPC 6641 
I CPC 61281 


Bombarderos 


NBA 


Bombarderos) contrario a lo que su nombre parece indicar, es un 
juego muy pacifico. Tiz de baloncesto y trata del famoso concurso de la 
NBA para tiradores de tres puntos que lleva el mismo nombre. Nuestro 
objetivo es participar en ese concurso y, si es posible) que nuestro nombre 
figure entre los de los mf!jores lanzadores americanos. 


T ra, la pre",ntaÓón del programa 
entramos en el menú de opciones, en el cual 
podemos elegir el color del equipo del jugador y 
el color de la cancha, podemos ver la 
clasificación, leer las instrucciones o comenzar el 
juego. Al pulsar el número de cada opción, 
debemos seguir las instrucciones que aparecen en 
pantalla, saliendo siempre de cada opción al 
pulsar la tecla COPI. Al comenzar el juego se 
nos pregunta por el número de tiros a realizar y 
nuestro nombre, después de lo cual comienza el 
dibujo de la cancha. Una vez finalizado éste, 
tenemos el jugador botando de un lado a otro dt" 
la pista y unos marcadores arriba y abajo, justo 
detrás del jugador. El de arriba nos indica el 
tiempo que nos queda para realizar el 
lanzamiento, el de abajo es el indicador de 
grados del lanzamiento que se efectúa al pulsar la 
barra espaciadora. El número de grados y. por 
tanto, la trayectoria del balón dependen del 
tiempo que mantengamos pulsada la barra 
espaciadora, siendo el valor óptimo 45. Tras 
realizar el lanzamiento, el marcador vuelve a cero 
para darle más emoción al juego. Por último, si 


b 


C( 
aa 
caC 
cap 
zaq 
nomb 
dfg 
sx 
mI 
yu 
tiemp 
scor(s) 
w(s) 
qaz 


hemos elegido un número elevado de 
lanzamientos y ya no queremos efectuar más el 
juego, acabará al pulsar la tecla T AB al ir a 
. lanzar (siempre que llevemos más de 10 tiros). 
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VARIABLES 


Coordenada horizontal del 
alón 
d d a vertical del balo n 
Coor ena l. dor 
Coordenada horizontal d
 Jug a 
Coordenada vertical del J
gadr 
Color de la camiseta de
 Jug a 01' 
Color del pantalón. del Jugador 
N ." de tiros a realIzar 
Nombre del juga?Or 
N . u de riros reahzado s 
1\ . o de canastas . 
Tanto por ciento obte
ldo 1 b 1 , 
1 ctona de a on 
Angulo de a traye r r el lanzamiento 
T . qu e resta para rea Iza 
lempo . . 
Lista de los mejores ?orcentaJes 
Lista de los mejores J.ugado res 
N . o del color de la tsta 


" 
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lJBRlJTINAS . 
s . . ' n P ara tirar 
d P OS\ClO . , 
J dor buscan o la obtenClon 
ug a r inares para 
Cálculos pre \
 
d la trayecto na 
;ude princl\al 'blico ante la canasta 
Reacción de P d u e l balón 
d b tan o 
Juga or o d a canasta 
Jugador lanzan o ectoria del balón 
Ajustes de la tray 
Resu\ta
os . es récord 
Detern nna rbalón 
Rebotes d
 , 
lnicia\izaClo
. . , de reco rds 
GDU e iniCla
\zaClOn 
, d opCIones 
Men u e 1 de cancna 
Elección de co or d 
., l . a or 
ClasiflC aclOn d 1 equipo de )ug 
. , de color e 
ElecClon talla 
Dibujo de la pan 
. , de datos. 
ObtenClon 
lnstrucclones 
Presentación 


110- 170 
220-240 


250-360 
370-390 
440-530 
540-630 
640-710 
720-820 
830-860 
880-940 
950-1. 040 
1 050-1.270 
1'.280-1. 410 
1.420-1.640 
1 650-1.680 
; 690-1.7 60 
l' 770-2. 190 
i 200-2. 250 
i.260- 2 . 290 
2.295-2. 610 


10 !;!***!
*;;f
t;*;*
*
t****
T*I 
20 **!!*** Manuel Fuentes ******* 
30 *i,! Talavera de la Reina ti!! 
40 i

* (e) AMstraa SeManal ***** 
50 i***************************** 
60 GOSUB 1060:R£M g.d.u. e inie. reeo 
ros 
70 GuSUB 2300:R£M presentaeion 
&0 Gu$UB 960:RfM inleializaeion 
90 GúSUB 1290:RlM menu 
100 GúSUB 1780:R£M pantalla 
l1ú 
tM Jugaaor buscando posielon 
120 WHIL£ INK£Y(47)=-1:If INK£V(6B)=O 
ANÚ otg)9 TrilN 6úTO 730 
130 If gat=l fH£N aa=aa-l:ter=l:If aa 
(ll THlN aa=11:gat=0 
140 IF fer=1 fH£N 60SU8 450 
ISO If gat=O lH£N aa=aa+l:fer=l:lf aa 
)19 fH£N aa=19:gat=1 
160 PRINi CHR$(22i;CHR$(0):tiemp=tieM 
p-l:P£N 15:LOCAf£ 3,iO:PRINf USING "* 
#"¡tiemp:lF tiemp=O lH£N dtg=dfg+l:Sú 
UNO 1,800, 170, 15:fer=1:fuR 5=1 fú 150 
O:NtXl:tieMp=2S:GúTú 420 
170 W£NO 
lBO PRINl CHR$(22)¡CHR$(0) 
190 fer=O:tiemp=2S:60SUB 550 
200 LOCAT£ cc+l,aa-l:P£N 3:PkINl CHk$ 
(254) 
210 TAG 
220 fp=yu/12.28:la=0:w5=0:lj=0:kjh=0: 
£>=2% 


230 dtg=dfg+1 
240 00=(aa-16)*(-1»*16:tt=(00/78)t2 


:nl1=oo 
250 R£X bucle principal 
260 ruk a=50 Tu 148 S1£P 2 
270 lf a=54 fH£N iAGOff:GOSUB 450:fAG 
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18ij nn=nn-tt 
290 e=(SIÑ(a)*2S0)+nn 
300 If la=O lHlN b=b+(tpi2) 
310 If ma=1 fH£N £>=b-(fp*I.2
 
320 If b)450 THlN GuSUB 890 
330 
ÚV£ b,e:P£N 13:PRINT CHR$(255); 
340 fOk 5=1 Tu 7:NlXI 
350 Mtlv£ £>,c:PRINT CHR$(2S5); 
360 NEX1 
370 R£M canasta 
380 If yu}43 ANO yu{47 TH£N SúUNO l,B 
00,4&0,15,1,,15 £lS£ GOfO 400 
390 FUR 5=1 Tú 20:INK 2,INl(RNO*26):I 
NK O,INT(RNO*26):INK 6,INT(RND*26>:fú 
H kn=l Tú 70:NlXT:N£Xl:INK 2,I:INK O. 
6:INK 6,2 
400 Ma,=O 
410 TAGúFf 
420 If dfg=zaq THlN GuTO 730 
430 PRINf CHR$(22)jCHR${0):GUSUB 2190 
:Gi.!lú 120 
440 R£M Juga
or botanao 
450 PRINl CHk$(22);CHR$(0):lúCA1£ ec, 
aa-l:PRIN"f (a 
460 f'EN lO:UlCAlf. ce,aa+l: PkINl :uga 
dor$ 
470 LuCAIE ee,aa+l:PRINl rop$ 
4BO If fer=O fH£N 530 
500 w=w+1:If W Muú 2=1 lHlN LuCA1E S, 
aa+l:P£N 13:P
INi CHR$(254); 
510 If W MOO 2=0 THlN LuCAIE ee+l,aa 
+3:P£N 13:PRINT CHR$(254)j:SUUNO 2,45 
0,15,15,3,3,1 
520 PRINT CHR$(23);CHR$(1) 
530 RlTUkN 
540 juga
or tirando a canasta 
550 LúCATl ee,aa-1:PRINl cl$ 
560 P£N 10:LúCAT£ ee,aa-l: PRINT salt 
, 


S70 LúCATl ee,aa-l:PRINT rop$ 
SBO LúCATE ee+l,aa-l:P£N 13:PRINT CHR 
$(254) 
590 PRINT CHR$(22)jCHR$(0)j 
600 LuCATl 3,22:P£N 13: f'kINIMOO.:yu= 
10 
610 wHiLt INKEY(47)=0 :kANDuMIZE lI"l 
:yu=FIX(yu+(i+(RNO»):If yu=90 fHiN 6 
30 £LSf. If yu MuD 3=0 TH£N lutAl
 2,2 
2:PRiNT yu 
620 WtND 
630 PlN 13:l0CAll 2,22:PRINl yu:LUtAl 
f 3,l2:PR!Ní .00. 
640 R£
 correeClon de trayectorIas 
6.5:) zs=yu 
660 If yu=44 Dk yu=46 T
tN yu=4S 
670 If yu=49 fH£N yu=50 
6BO If yu=4i THlN yu=4B 
690 If yu=43 TH£N yu=42 
700 PkINT CHk$(22)jCHR$(1)¡ 
710 R£TURN 
720 RE" resultados 
130 INK O,I:MUOE I:INK l,l:PAPER l:CL 
S:INK O,6:PlN O 
740 Mu
£ 30,90:0RAW 30,350:0RAW 610,3 
SO:DRAW 610,90:DRAW 30,90:MúVl 30,305 
:úRAw 610,30S:
UV£ 30,260:0RAW 610,26 
O 
750 LúCAIE 4,5:PRINl M
úMBAROtkuS N
A 


\ 
I 
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760 LúCATE 4,8:PRINl "NOMBR£:";nolb$ 
110 LuCAfE 8,12: PHINf "INífNfOS.,dfg 
180 LúCAi£ S,14:PRINT .CÚNVlRIIDÚS.,s 
x 
790 If a1g=0 TH£
 d1g=1 
BOO 11=RúONO«((sx*100)/dfg),2) 
810 LúCAT£ B,16:PRIN1.POkClNIAJE.,ml M 

. 
820 fUR 5=1 Tu 3S00:NEXi 
B30 R£M es record? 
840 fUR 5=1 Tú 8 
BSO IF scor(sJ{il TH£N res=s:fúR b=s 
TO 8:scor(b+l)=rese(b):w$(b+l)=x$(b): 
N£Xí:seor(res)=Ml:w$(res)=nolb$:60SUB 
1660: GOTO 80 
860 N£XT 
870 PRINT CHR$(23);CHR'(0):GÚ1Ú 80 
880 RE" rebotes del balon 
890 If b}490 THlN If yu>39 ANO yu<44 
THEN la=1:1j=lj+l:IF Ij=l TH£N SOUNO 
129,1010, 10", ,20 
900 If a=12B ANO yu=48 fH£N yu=45:Ma= 
O 
910 If a=126 THEN IF (z5=44 úk z5=46) 
THEN SúUNO 129,1010,15",,20: túR 1M 
=1 lú 25:yp=200+(lm/l.5):MúV£ b,yp:PR 
INi CHR$(255)¡:FUR 5=1 fú 20:N£Xi:MUV 
l b,yp:PRINl CHR$(25S);:NlXl 
920 IF a>12B AND yu=45 fHEN b=b-(fp*2 


I 
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):IF a=130 THEN SúUND 1,400,20,15,2" 
2: S)(=sx+ 1 
930 If zs}46 ANO c{250 THtN IF b)522 
AND u{530 fH£N aa=l:ws=ws+l:If ws=1 f 
Ht
 SUVNt 129,1010,10",,20 
940 H£ fi}RN 
950 Rt
 inicializaeion 
960 CLS:£NT 4,3,-50,5:fNV 3,3,-3,5:ti 
emp=2S:tNV 2,5.4,5:tNV 1,8,-1,60:lpo= 
11:li=520:pr=414:rp=0:aum=0:dtg=0:sx= 
0:aa=16:ec=i:cac=6:cap=2:qaz=4 
910 INK O,l:INK 1,1:iNK 2,l:INK 3.0:! 
N
 4.1:INK 5,0:INK 6,2:INK 7,2:INK 8, 
24:INK 9,26:iNK 11,9:!NK 13,26:INK 14 
,26:INK 15,6:za=IN1(RNO*3)+I:IF za=2 
fH£N INK 10,16:INK 12,13 fLS£ INK 10, 
13: INK 12,16 
980 mS$=CHR$(22}+CHR$(1):SM$=CH
${22) 
+CHf,:$(O) 
990 ret$=CHR$(3)+CHR$(8)+CHR$(10) 
iOOO jugador$=ms$+CHf,:$(245)+CHR$(238) 
tret$+CHR$(246)+CHR$(241)+ret$+CHR$(2 
4])+sl$ 
1010 salt$=ms$+CHR$(245)+CHR$(248)+re 
t$+CHR$(246)+CHR$(241)+ret$+CHR$(l44) 
tCHR$(8)+CHR$(10)+CHR$(242)+sm$ 
1020 rop$=ls$+(CHR$(15)+CH
$(5»+CHR$ 
(250)+CHR$(8}+(CHR$(IS)+CHR$(i»)+CHR$ 
(251)+CHR$(3)+CH
$(10)+CHR$(205)+CH
$ 
(3)+(CHR$(15)+CHR$(7»+CHR$(253) 
1030 el$=" "+ret$+" "+ret$+B "+ret 
$+" B+ret$+" "+ret$+" " 
1040 R£TURN 
1050 REM g.d.U. y inie. reeords 
iú60 $VM
Ol AFfiR 200 
1070 SYMBOL 238,0,0,0,0,0,48,96,192 
1080 SYMBOL 245,24,60,60,60.24,60,62, 
63 
1090 SYMBOL 241,192,128,0,0,0,0,0,0 
1100 SYMBúL 246,63,63.61,60,60.60.60, 
60 
1110 SYMBOL 247,30,31,7,15,14,2B,56,6 
O 
1120 SYMBuL 248,0,30,63,63,63,127,254 
.224 
1130 SY
BOL 251,0,0,0,0,0,56,56,56 
1140 SYMBUL 239,24,36,36,0,0.0,0,0 
1150 SYM
úL 222,0,0,0,0,0,60,60,60 
1160 SYHBUL 255,0,60,126,126,126,126, 
60,0 
1170 SYMBOL 243,24,60,60,60,24,126,12 
6,126 
l1BO SY
BOL 244,28,28,23,28,24,24,24. 
24 
1190 SYMBOL 242,24,24,24,28,12,0,0,0 
1200 SYMBUL 250,24,S6,43,43,O,O,O,0 
1210 SYMBOL 251,0,0,0,0,0,56,56,56 
1220 SYMBUL 205,60,60,60,60,0,0,0,0 
1230 SYMBOL 253,0,0,0,0,60,60,60,52 
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1240 SYMBUL 254,0,30,63,63,63,31,30,0 
1250 RESTORE 1260:FOR s=1 Tú B:RtAO w 
$(s),scor(s):x$(s)=w${s):rese(s)=scor 
(s):NHT 
1260 DA1A lARRY BIRD,79.76.1S1AH THOM 
AS,77.52,TR£Nf rUCK£R,75.79.MAGIC JHO 
NSON,75.22,6RAIG HúD6tS,74.43,DOMINrQ 
U£ wILKINS,71.22,SIDN£Y MONCRI£f,67.9 
6,JAMES WúRTHY,65.75, 
12iO R£fURN 
1280 fitM IItenu 
1290 BUROfR l:PAP£R 2:Múú£ l:CLS:INK 
O,6:
tN O:LúCAit 15,2:PRINI B &úM&AROtR 
OS" 
1300 LuCAH. iO,B:PRINl Ni. - rNs'R!JeCI 
¡JN£S. 
1310 LOCAIE 10jiO:
RINl "2.- COLOR tQ 
UIPu G£L JUGAGOR B 
1320 LOCAl E 10,12:PRINl B3.- COLOR Út 
LA CANCHA" 
1:330 LOCAlt 10,14:PRINT B4.- VER CLAS 
IFICACiON: 
1340 LOCAlE 10,16:PRINT B5.- ((¡/'lIENZO 
.]ti£GO. 
1350 LOCATt 5,20:PRINT "elige opcion 


1360 opc$=INKEY$:opc=VAL(opc$) 
1370 IF opc{l UR opc)5 fH£N 1360 
1380 If opc=5 THEN 6UI0 2210 
1390 UN opc GOSUB 2260,1700,1420,1660 
1400 Gu1lJ 1290 
1410 R£fURN 
1420 fitM color de cancha 
! 1430 CLS:INK O,26:1NK 2,1:INK 3,'
az:m 
I nz=280 
1440 PAP£R 2:CLS 
1450 /'IUVt O,310:DRAW 280,310,0 
1460 ORAW 640,240:MUV£ 0,33S:uRAW 2aS 
,335:DRAW 285,310:MOVt 2BO,335:úkAW 6 
40,:305 
1470 MuVE 285,33S:ÚRAW 250,387:UkAW 2 
V,4iJO 
1480 MuVt 285,33S:ÚkAW 380,400:0R
w 2 
50,387 
1490 fOk s=295 TO ° STEP -2:mnz=mnz+( 
720/95):MOV£ O,s:ORAW mnz,s,3:NfXr 
1500 MOVt O,295:DRAW 280,295,0:DRA
 6 
40,200 
1510 MOVt 640,20:0RAW 0,10 
1520 PEN O 
1530 PRIN1 CHR$(22)jCHR$(1) 
1540 LúCAí£ 15.1:PRINT"BUMBARú£ROS B 
1550 lOCA TE 1,4:PRINl BCúLOR Dt LA CA 
NCHA?i.usa space)" 
1560 
kINIBCOPY para acabar B 
1570 WHIL£ INK£Y(9){)0 
1580 I
 INKtY(47)=0 THtN qaz=qaz+1:If 
qaz)25 TH£N qaz=O 
1590 INK 3,qaz 


Serie 
-RO 


1600 PRINí CHR$(22)jCHR$(0):luCAT£ 32 
15:
RINI" B:PRIN1 CHR$(22)jCHR$(1) 
1610 LúCArf 32,S:PRINr qaz 
1620 fúk s=1 Tú 150:NtXl 
16:30 W£N£I 
1640 RUUkN 
1650 
£M claslfieaelon 
1660 CLS:LOCA1t 11,2:PRINl "/'IAXI/'IúS A 


riú f AOuRt:S 
 


1670 FúR s=1 Tú 8:)($(s)=wf(s):rese(sl 
=scor(s):LÚCAf£ S,5+s:PRINf w${S)j:11 
n=ltN(w$(s»):fOR b=S+lin Tú 2B:PRIN1 B 
."j:N£Xr:lÚCAí£ 29.5+s:PRINT seor{s); 
:f'RINI"¡":NHT 
1680 LúCAf£ 7,20:PRINT"PULSA {CUpy) 
 
ARA CÚNlINUAR":WHILt !N
1Y(9)OO:WtND 
:PRINT CHR$(23)jCHR$(0):RffURN 
1690 RtM color equIpo del jugador 
1700 INK O,l:INK 1,6:PAPER O:Mú
f O:C 
LS:aa=12:cc=10:PtN 10:LúCA't ce,aa+l: 
PRINí jugadorf:LtiCAf£ ec,aa+l:PRi
f r 
op$ 
¡710 PtN i5:LUCA1t S,l:
kINi.
Ú
BAHU
 
RúSn:LUCAf£ 1,i8:PRINf B {SPAC£) para e 
leglr B :PRiNl:PRIN1"{CúPY) yARA ACABAR 


1720 rilSiuÍlt 1760:W
ILt INKtY
9)=-1:1 
f 9rt MuQ 9=0 fH£N 
£SfuR£ 1760 
1730 If INKtY(4i)=0 THtN grf=grf+l:Rt 
AD eac,cap:INK 1,cac:!
K ',cap 
1740 fuR s=1 1u 20ú:NEXi 


1750 
fNO:((=l:R£f
RN 


1760 uA1A 26,26.24,2,15,26,6,24,2,26, 
21,26,20,11,26,0,6,2 
1770 RtM pantalla 
17BO Múú£ O:PAP£R 4:CLS:PAPER 3:BORuf 
H l:INK 3,qaz:INK l,cac:INK 7,eap 
1790 O£6 
1800 fúR s=265 TO 10 Sit
 -2 
1810 1l=1l+0.37 
1820 MOVt O,s:DRAW 11,s,3:NtX1 
1330 MOV£ O,265:ÚRAW 520,265,13:0RAW 
635,10:DkAW 0,10 
1340 PRINT CHR$(22);CH
$(lj 
18S0 fÚH s=390 TD 324 SltP -7:aum=aum 
+10:MtlV£ O,s:ORAW 354+auI,s,11 
1&60 Ntn 
lB70 MtlV£ 500,30S:0RAW 500,320,15:úRA 
w 3f,O,400 
1880 rúR s=300 fO J2Ú:MÚV£ O,s:DRAW 2 
74 l s,lS: 1'I1IVt 276, s: DRAW 499, s .10 
1390 NH r 
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1900 f'tN 13 
1910 LúCAT£ l,6:PRINi .uCA COLA Niki 
" 


1920 FúR 5=1 fu 5 
1930 rp=rp+30:pr=pr-16:MOVE O,pr:DRAW 
3iO+rp,pr,15 
1940 fOk fe=1 10 lpo 
1950 pi=INT(RN015)+1:IF pl=3 fH£N 201 
O 
1960 If pl=2 THEN PtN 12 ELSE f'EN 10 
1970 LuCAfE fe,s:PRINf CHR$(243) 
19BO IF pl=4 THEN PEN e ELSE PEN 5 
1990 LOCAiE fe.s:PRINf CHR$(239) 
2000 Mk=INT(RND*8):PEN mk:LOCAIE fe.s 
:PRINf CHR$(222) 
2010 NEX1:lpo=lpo+l:NtXl 
2020 PRINf CHR$(22)jCHR$(0) 
2030 MOVE 5B5,124:DRAW 360,124,13:DRA 
W 365,104:0RAW 594.104 
2040 MOVE 360, 124:DRAW 340.20
 
2050 FOR 5=1 iO 360 Sf£P 3:PLOi 350+4 
4iSIN(s),165+40iCúS(s):NEXl 
2060 "OVE 550.205:0RAW 340,205:0RAW 3 
35,21B:DRAW 541,218 
2070 "ÚV£ 400.36:úRAW 620,36 
2080 fOR 5=180 TO 343 :PLúl 405+149*S 
IN(s).14B+1121CUS(s):N£Xi 
2090 MOVE 36i.254:úRAW 520,254 
2100 FúR s=553 fO 556 
2110 MOVE s.180:DRAW 5,240,13 
2120 NEH 
2130 MOVE 560,205:0RAW 5i5,205.15:DRA 
W 575,245:DRAW 555,300:0RAW 550,400 
2140 MOVE 560, 190:DRAW 590, 190:DRAW 5 
90.235:DRAW 610,275:DRAW 615,400 
2150 MOVE 575,205:DRAW 590, 190:MOVt 5 
75.250:0RAW 590,235:MuVE 555,305:úRAW 
605.265:MOVE 550,355:DRAW 607.325:MO 
VE 560.230:DRAW 515.230:MOVE 560,220: 
DRAW 590,220 
2160 FOR s=l TO 360 SfEP 4:PLOf 533+1 
5iSIN(s),190+5iCOS(s),15:NEXT 
2170 MúVE 518,184:0RAW 525,165,13:MúV 
E 52B,181:0RAW 535. 165:MOVE 538,181:0 
RAW 545.165:MOV£ 541, 184:0RAw 540,165 
2180 MUVl 59,73:0RAW 134./3:DRAW 134, 
42:úRAW 59.42:ÚRAW 59.13 
2190 pEN 13:LOCATE 3,22:PRINl .00":60 
SUB 450: REfiJRN 
2200 kEM obtencion de datos 
2210 CLS:LuCAf£ 14,i:PHINT"BuMBAH
ERD 
S":LOCA1E l,4:INPU1"NUMERÚ úE TiRúS?( 
10-1(0) ",m! 
2220 If zaq(10 OR zaq>100 THlN 2210 
2230 lOCAf£ 1.8:PRINr'NO
BR£ DEL JUGA 
DOR?(MAX.20 letras) ":LOCATE l,9:INf'U 
f os, nOlb$ 
2240 If LEN(noMb$)}20 THEN GulO 2230 
fLSE nOMb$=UPPER$(nolb$) 
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2250 GOTO 1410 
2260 CLS:LúCAfE 13,l:PRINT "INSfRUCCI 
(¡NlS" 
atO lOCAI
 l,
:
't(lN'I"£SH¡S PAt(llUPA 

Dú EN EL PRESfIGIOSu rúRN£ú DE LA NB 
A PARA TIRADúRtS Ot 3 PUNTUS (BOMBARD 
EROS) , ELIGE EL CULuR DE LA CANCHA, £ 
L COLOR DE lU JUGADOR y tL NUMtRD DE 
fIROS £ INfENfA CLASIFICARfE ENfRE LO 
S MEJORES úE lUDOS LDS TIE
POS." 
22BO LúCAT£ 1, 12:PRINr"PARA ELLO ESPE 
RA PARA OBTENER LA MEJúR POSICION y P 
ULSA (SPACE) HASíA CUNSEGUIR EL ANGUL 
o CORRECTO. BUENA PUNTERIA Y.. . CUIDAD 
o CON EL fiEMPO!!." 
2290 LúCA1E 6.21:PRINl "PULSA (COPY) 
PARA CÚNfINUARH:WHILE INKEY(9)=-1:W£N 
ú:RliURN 
2295 REM presentacion 
2300 &ORDlR O:INK O,O:INK 15,6:PAPER 
O:CLS:MODE O:INK 5,24:INK 6.26:INK 1, 
2:INK 8,8 
2310 bvs$="BÚMBAROEROS. 
2320 fOR 5=1 TO 11 
2330 asd$=MID$(bvs$,s,l) 
2340 FOR ac=1 TO 12 
2350 lúCAfE s+4,ac:P£N 15:PRINr CHR$( 
252):fOk gtx=1 TO 15:NlXT 
2360 IF ac=12 fH£N 2380 
2370 LOCAlt s+4,ac:PRINl · · 
23BO NEXi 
2390 SOUNO 1,1500,10,15.,,8 
2400 LúCAfE s+4.ac-i:PRINf asd$ 
2410 NEX1 
2420 FúR s=4 iO 16:h=s MuD 4:IF h=O r 
HEN PEN 5 £LSt If h=l lktN PEN 6 ELSl 
IF h=2 fK£N PEN 1 ELSE P£N e 
2430 LúCAT£ s,10:PRIN1 CHRf(255):NEXl 
2440 fúR s=4 fO 16:h=s Muu 4:IF h=O f 
HEN PtN 5 £LSE I
 h=l THEN PEN 8 ELSt 
IF h=2 fH
N PfN 7 ELSE PEN 6 
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2450 U¡CATE s.14:PRINl CHR$(255):NUl 
2460 LOCA TE 4,11:PEN B:PRINf CHR$(255 
):LOCATE 4.12:PlN 7:f'RINT CHR$(255):l 
OCATE 4.13:PEN 6:PRINT CHR$(255) 
2470 LOCATE 16,11:plN 6:PkINT CHR$(25 
5):LúCAfE 16,12:P£N 1:PRINT CHR$(255) 
:LOCAT£ 16.13:PEN B:PRINT CHR$(255) 
2480 LOCATE 3,19:PRINf"Pulsa una tecl 
aS 
2490 RESTORE 2550 
2500 EVERY 5.1 GOSUB 2600 
2510 FOR 5=1 fu 35 
2520 fl$=iNKEY$:If fm$()". lHEN a=RtM 
AINW:REfL!RN 
2530 REAO hn,ib 
2540 SúUND l,hn+jtz,ib+3,15 
2550 DATA 119.15,106,15,9&,15,106.15, 
119.15,95,15,119.15.106,15.95,15,106, 
15,119,15,95.15,127,15,119,15,106.15. 
119,15,127,15,106,15 
2560 DATA 127,15,119,15,106,15,119,15 
,127.15,106,15,142,15.127,15,119,15,1 
27,15,142,15,119.15,142,15,127,15,119 
,15,127,15,142,15 
2570 NEXl 
2580 jbz=jbz+5:IF jbz)15 iHEN jbz=O 
2590 GOTú 2490 
2600 y=y+l:yy=y MOD 4:I
 yy=l fHEN IN 
K b,l4:1NK b.i6:iÑK 1.2:1NK B,S EL$£ 
IF yy=2 fHEN INK 6,24:INK 7,26:INK 8, 
2:INK 5,8:ELSE If yy=3 THEN INK 7,24: 
INK 8,26:INK 5,2:INK 6.B ELS£ IF yy=O 
THtN INK B.24:INK 5.26:INK 6.2:INK 7 
,B 
2610 R£TUkN 
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PROGRAMAS PARA AMST AD y PC COMPATIBLES 
LLEVE EL CONTROL Y GESTION DE SU EMPRESA 


FACILES DE USAR, RAPIDOS y ECONOMICOS 
CENTRO DE DESARROLLO DE SOFTWARE 
U
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VISAJET 
AMSTRAD 25.000 
MS/DOS 30.000 


CONTAVISA 
AMSTRAD 25.000 
MS/DOS 30.000 


GESCOVISA 
AMSTRAD 25.000 
MS/DOS 30.000 


STOCVISA 
AMSTRAD 15.000 
MS/DOS 20.000 


CONTABILIDAD 
GENERAL 


GESTION DE EMPRESA 
ALBARANES, FACTURAS, 
ALMACEN y REPRESENTANTES 


CONTROL DE ALMACEN 
EXISTENCIAS, MINIMOS 
INVENTARIO PERMANENTE 
LISTADOS DE PRECIOS 


GENERADOR DE FICHEROS 
PROGRAMAS DE FICHEROS 
CUARTA GENERACION 
RECIBOS, LISTADOS 
ETIQUETAS 


el Francesc Layret, 76 T el. (93) 691 23 11 
08290 Cerdanyola del Vallés-Barce/ona 
CI Mejía Lequerica, 18, 5. o B. 
28004 Madrid. T el. 446 80 64 



Revolution 


La bola en el laberinto 


Siempre es interesante poder demostrarse a uno mlsmo la habilidad 
manual y los rif[fjos que se poseen. 
Pero otra cosa que también es importante conocer, es la 
concentración que somos capaces de conseguir para realizar una tarea 
delicada. 
Con este juego, REVOLUTION, se van a poner a prueba todas 
estas cualidades. Si poseemos buena dosis de ellas) el juego será una 
cosa entretenida y nos servirá de entrenamiento) si no) será algo que 
saque a más de uno de quicio y le «revolucionará». 


s ¡ la pe"',"a que e,tá leyendo ,,,to e, el 
típico manitas, o le gustan los intrincados 
problemas de habilidad. no dudamos que le 
convencerá este juego. 
A nosotros, que no somos excesivamente 
hábiles, nos ha parecido entretenido, cosa que 
indica que cogiéndole el «tranquillo» puede ser 
interesante. 
Esto lo teníamos casi claro antes de ver el 
REVOLUTION debido a la casa a que 
pertenece y que no es otra que VOR TEX. 
Esta firma siempre ha tenido en mente que el 
fin de un juego es entretener, cosa que al final 
veremos. 
El juego tiene nueve niveles -o plantas- que 
están formados por placas separadas en el aire. 
En cada nivel deberemos tocar con nuestra 
simpática pelota los ocho cubos rojos de las 
placas de dicho nivel. Hay dos cubos por placa y, 
mediante el contacto, se vuelven blancos. Para 
pasar de nivel, deberemos «blanquear» los ocho 
cubos. 
Esto que se explica con hlcilidad, no tiene nada 
de sencillo a la hora de ejecutado. 
De momento, sirva como referencia el hecho 
de que el juego tiene un ciclo aleatorio y que no 
siempre empezamos en el mismo sitio, es decir, 
cada vez que hayamos gastado nuestras cinco 
pelotitas deberemos empezar en otra pantalla del 
ciclo. En esta, lus cubos estarán también 
distribuidos de diferente manera. Esto hace que 
sea realmente difícil, o por lo menos costoso, el 
aprenden la estrategia para terminar la pantalla. 
Pero por si esto fuera poco, la pelota no es 
muy fácil de dirigir, cosa ésta -pensamos- que 
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está dirigida a hacer más complicado un juego 
que ya es difícil de por sí. 
Difícil, porque en las placas donde están los 
cubos, hay también unas superficies -parecen 
enrejados- en las que según su color, rojo 
oscuro o rojo vivp, seremos parados o 
empujados, teniendo esto un peligro más o 
menos, según se la situación en que nos 
encontremos. 
Hay que tener en cuenta que entre placa y 
placa está el vacío, causando un empujón a 
destiempo desagradables consecuencias. 
En otras situaciones, el «parón» es interesante 
debido a que la pelota rodando por el suelo es 
más fácil de dirigir y a que así podremos tocar 
más fácilmente los cubos, objetivo de nuestros 
movimientos. 
En la pantalla se nos indican dos datos 
fundamentales que son, el tiempo que nos queda, 
del que luego hablaremos, y la potencia del bote 
de nuestra pelota. También se nos indica la 
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puntuación que tenemos y la máxima 
puntuación, cosa ésta que, por el carácter del 
juego, es meramente anecdótico. 
El indicador de potencia del bote de la pelota 
es muy útil por lo que ya dijimos, la pelota en el 
suelo es más fácil de dirigir. Para conseguir esto, 
hay que apretar el fire del joystick una vez y 
veremos cómo desaparecen del indicador las cinco 
flechas graduadoras de potencia, luego 
desaparecerán las rayitas que cumplen idéntico 
fin y, posteriormente veremos cómo se detiene la 
pelota. 
Después de estar jugando un buen rato, 
descubrimos que no habíamos mirado la 
puntuación y que el tiempo se nos había agotado. 
Esto nos hizo pensar en dos cosas. 
Una fue, el que la puntuación en un juego de 
habilidad es una cosa en la que casi nadie se fija, 
o al menos es lo que pensamos nosotros. La otra 
es, que nos parece rizar el rizo poner tiempo a 
un juego en el que no es necesaria la presión del 
reloj para darle emoción. 
Volviendo al juego en sí, y siguiendo con las 
emociones. hay una especie de setas volantes que, 
sin ningún tipo de consideración, te empujan al 
menor descuido y te sacan de la trayectoria que 
lleves en ese momento. Si estás cerca del abismo 
las consecuencias pueden ser fatales. 
Fatales pueden ser también los entes 
desintegradores que pueden acabar con las 
pelotas por su solo contacto. Algunas de estas 
partículas desintegradoras están colocadas con 
mala idea y rodean algún cubo rojo, poniendo el 
tocados realmente difícil. 
Algunas veces los cubos están escondidos detrás 
de otros bloques y también es complicado ver 
dónde se hallan. Para saber si le hemos tocado 
tendremos que guiarnos por el «beep" que 
sonaría en tal caso. 
Si hemos tocado uno, deberemos ir 
rápidamente a tocar el otro, si lo logramos, 
desaparecerán los dos y deberemos pasar a otra 
placa con cubos rápidamente, ya que el tiempo 
apremIa. 
Como se puede ver, este juego está en línea de 
todos los de VOR TEX. 
Nada más ver la pantalla de presentación, 
supimos que los gráficos serían de la calidad con 
que esta firma hace sus juegos. Del color, 
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podríamos decir exactamente lo mismo añadiendo 
que es sumamente agradable. Es interesante 
fijarse en lo bien que están realizadas las sombras 
de las pelotas, incluso cuando éstas están 
botando. 
y al hablar de botar, hablamos de movimiento 
y debemos decir, que la animación es también 
muy buena. Aunque pensamos que el efecto 
mejor logrado de pelota botando es el de 
Cauldron, el de Revolution no queda muy a la 
zaga. 
Si a esto le añadimos un sonido muy logrado, 
el «boing" acompaña perfectamente la pelota, 
tendremos un juego que por tema y por 
realización está muy conseguido. 
Para terminar, nos gustaría decir que también 
el juego está en la línea de V ortex, en cuanto a 
nivel de dificultad. Como dijimos en un 
principio, esta firma debe de tener muy claro el 
hecho de que sus juegos deben entretener, bien 
por ellos. Lo que a nosotros nos parece es que los 
juegos de V ortex son bastante complicados y que 
sólo si el juego nos gusta -en este caso no será 
difícil que esto ocurra-, seremos capaces de 
estarnos delante del ordenador el rato necesario. 
grande seguramente, para realizar algo 
interesante. 
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Pacific 


La leyenda de la Atlántida, un mundo de 
maravillas y riquezas hundidas en el océano, ha 
excitado la imaginación de toda clase de 
sonadores y aventureros. 
Si también tienes esa irresistible atracción, 
puedes unirte a la aventura submarina que te 
proponen ERE INFORMA TIQUE y DRO 
SOFT, y convertirte en un intrépido 
submarinista en busca del tesoro de los atlantes. 
Pero no va a ser tan fácil como quisieras. El 
alma de los antiguos habitantes de la Atlantida 
no deja que los intrusos se apoderen de sus 
tesoros. Para evitarlo hacen un encantamiento a 
todo aquel que se atreve a introducirse en su 
mundo hundido a más de mil metros. 
Para defenderte cuentas con un fusil 
submarino, una barra amarilla en la que están 
simbolizadas tus últimas ocho balas, el oxígeno y 
tres vidas. No sólo tendrás que enfrentarte al 


Prodigy 


I 
I 
l 


En un tiempo futuro y en un lejano lugar, 
existirá un planeta mecánico en el que sus 
habitantes serán ordenadores inteligentes. Esta es 
la historia que plantea el juego de Electric 
Dreams, distribuido por Proeinsa y que ahora 
presentamos. 
En este planeta la mágica máquina Wardlock 
ha logrado lo que parecía imposible: crear vida 
orgánica en sus laboratorios. En un alarde de 
técnica, te permite que observes desde un 
monitor las cuatro zonas en las que se dividen 
sus laboratorios. Nada más mirar vemos que no 
sólo están sus creaciones, los Bloberites y los 
Globewels; también hay un hombre sintético 
llamado Solo. Este androide ha estado atrapado 
en la pesadilla del laberinto, creado por 
Wardlock, desde un tiempo que ni siquiera él 
recuerda. Pero un día, su apatía se convierte en 
un deseo desesperado de huir del laberinto y 
llegar a un lugar en el que exista vida humana. 
La razón fue la llegada de un bebé humano, el 
pequeño Nejo. De repente, Solo se convirtió en 
su cuidador; se consideró responsable de la vida 
de Nejo, de sus necesidades materiales y 
afectivas. En ese momento decide trazar un plan 
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PACIFIC 


espíritu de los atlantes, también a peligros tan 
reales como los animales venenosos. Pero puedes 
ayudarte de los sextantes, botellas de oxígeno, 
puertas en las que encontrarás municiones y 
vidas, si logras evitar las trampas. 
Sus 32.000 pantallas diferentes llenas de color 
y decorados nada habituales te proporcionan 
horas de entretenimiento. 


\
'j'. ,;::g[ n: - tl ti 
if = > . ¡ , ' 
- 
i -n 

ll lt' 
 = " 
- - ,t 
t . '+ . 
_ 
'E" .,. 4 

 - :...: t EE { ".. :. , . 
a2IIIIIE 
 "'- . ..:. 
. 
 
--
 . .
¡
t ILI I 

:
...1:

 
 
-. 


2 
fiI' 
- 


VI" 


[i(]DD LUCti !! 




 . 


11 


..... 



, 


PRODIGY 


que les permita huir atravesando las cuatro 
zonas, para lo que deberá conseguir las cuatro 
llaves. 
Desde tu monitor puedes ayudarles; pero 
procura que las creaciones de la máquina no 
hagan daño ni a Solo ni a Nejo y controla la 
cantidad de oxígeno o ninguno de los dos podrá 
escapar de la malvada máquina. 
Es un típico juego tridimensional en el que se 
ha logrado un buen diseño de los gráficos, pero, 
sobre todo, se han esmerado en el colorido que, 
además, se puede cambiar. Sin embargo, el 
movimiento deja mucho que desear, aunque 
tampoco puede decirse que sea demasiado malo. 



Frost Byte 


En las frías y profundas cavernas del planeta 
Cosmia se está produciendo una lucha por la 
libertad de los Kreezers. Los malvados habitantes 
del país de los cráteres, los Ghoulish, están 
capturándolos y encerrándolos. Pero hay un 
Kreezer que ha logrado escapar de su prisión y, 
en un viaje cargado de peligros a través de las 
cavernas, intenta obtener la libertad y liberar a 
cinco de sus compañeros, mientras destruye todos 
los monstruos que pueda. 
Para aumentar la extensión de sus 
movimientos puede valerse de tres objetos: uno 
azul, uno rosa y otro verde. Cuando come uno 
azul salta más; si es uno rojo se mueve más 
rápido, y con el verde puede caer más lejos. 
Si unes su habilidad con tu precisión, seguro 
que logras guiarle hacia la ansiada libertad 


Aliens 


Llegada de un lejano planeta, la amenaza 
vuelve a cernirse sobre la Tierra. 
Como su nombre indica, la historia de este 
juego es la misma que la de la película de ciencia 
ficción. Ripley, primer oficial del Nostramo, ha 
sido rescatada. Pero nadie cree su historia de la 
criatura alienígena que se desarrolla en el interior 
de un ser humano, sin embargo, se pierde el 
contacto con la lejana colonia del planeta en el 
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ALIENS 


que su nave encontró esta mortal criatura. Se 
organiza una expedición con una escruadra de 
marines del espacio en la que va Ripley. La 
misión es controlar la base por todos los medios 
posibles y mantener con vida a los miembros de 
la tripulación, así como librarte de todos los 
Aliens. 
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FROST BYTE 


atravesando toda clase de frías cavernas. 
Este juego de Microgen, distribuido por Erbe, 
tiene unos gráficos muy bien definidos y con 
todos los fríos colores que convienen a un gélido 
ambiente, como las cavernas de Cosmid. 


Para lograrlo cuentas con los monitores del 
MTOB con lo que dirigirás a la tripulación, te 
informarás de su salud, cantidad de munición, la 
identificación personal de cada uno, la habitación 
en la que se encuentra y los puntos que obtienes, 
que incrementarás cada vez que veas a Newt, la 
única superviviente de la colonia. 
Los gráficos de este juego, de Elcctric Dreams 
y Proein S. A., están bien logrados. Su mayor 
atractivo es poder decidir el final que tú hubieras 
deseado, siempre que consigas que los Aliens no 
ganen la partida. 
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Como miembro del Escuadrón 
Antiterrorista de Computadores 
(EAC), su misión es encontrar y 
coger al infame Elvin, quien tiene 
a la población mundial como re- 
hén bajo la amenaza de aniquila- 
ción nuclear. Debe pasar por un 
pasillo a través de habitaciones y 
túneles en su cuartel general tra- 
tando de evitar los robots protectores de Elvin. 
Deberá correr más o saltar por encima del siguiente ro- 
bot o jugar seguro y tomar el tiempo necesario para unir 
los códigos para desactivar los robots, encontrar a E1vin y 
pararle. 


P. V. P.: COMMODORE 64, 2.300 ptas. 
P. V. P.: SPECTRVM 48 K, 2.300 ptas. 


Utilice su cámara para fotografiar tantas pistas 
como sea posible para encontrar la contraseña que le 
permitirá penetrar en la habitación de control de 
Elvin. 


p 


Su misión: Salvar al mundo, ¡pero deprisa! 
L'n jugador; conrrol joy.ffick o teclado (sólo 
SPECTRL'M). 



 Fabricado y distribuido bajo licencia por: 
COHPULOGICAL S.A. 


Santa Cruz de Marcenado, 31 - 28015 Madrid - Tele! 2411063 


DlstnbUldo en CATALUÑA v BALEARES por. DlSCLLJB. S.A. 
Balmes. 58 08007 BARCELONA Teléfono (93) 302 39 08 
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Visaje t..., algo más 
que una base de datos 


E l paquete al que hoy le ha lúcado el 
turno es otro más de la firma barcelonesa Vallés 
InfÓrmática. Llega a nosotros en su presentación 
habitual de carpetita marrón, y con un disco de 
programa. que además de éste contiene una serie 
de «demos» para facilitar la comprensión de la 
totalidad del programa. Pero en fin, dejemos los 


}á no es la veloCldad 
lo que marca la inercia 
que lleva el avance 
tecnológico, sino la que 
le imprime Mr. Sugar 
a la sucesión de sus 
equipos. La que hace 
que, al cabo de un año, 
tan sólo, se pueda 
hablar del PCW como 
un señor ordenador 
veterano. Su software, si 
no ha alcanzado su punto 
culminante en lo que 
respecta a variedad, ya 
ha llegado a un nivel 
de acabado y depuración 
más que serios y dignos 
de acompañar a un equipo 
que es, de verdad, más 
ordenador que «máquina 
de escribir». é'Quieren 
ver una muestra? 
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circunloquios para el final y empapémonos un 
poquillo en la «salsa» que toca hoy, que, como 
verán, no es poca. 


Siguiendo pantallas... 
Para no variar. vamos a intentar explicar el 
paquete yendo opción por opción. Después del 
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.lfenlÍ principal de 
«I/sajet« mostrando todas 
las opciones. 
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proceso de carga del programa, nos aparecerá un 
menú principal. cosa totalmente nurmal, del que 
partiremos a la hora de trabajar con Visa jet. 


Menú de generación 
Esta opción, la primera, nos va a llevar a otra 
serie de opciones de un segundo apartado, 
siempre que lo que deseemos al entrar en la 
aplicación sea crear un fichero, o tocar su 
estructura; las opciones sun las que siguen: 


-Leer de descripción: 
Es el primer paso a dar si vamos a trabajar 
con un fichero ya creado. Aquí lo que haremos 
será pasar a memoria interna el fichero que 
deseamos, con lo cual ya tendremos oportunidad 
de usar las opciones de edición. Estas las tenemos 
a la uerecha de la pamalla. 


- Listar descriptor: 
Un descriptor es aquél que contiene los datos 
de configuración del que va a ser nuestro fichero. 
En esta opción obtendremos un listado por 
impresora de esta estructura, mostrando el 
número dc campos que tenemos, la longitud, y el 
tipo, así como las claves de acceso que se han 
creado. No olviden que Visajet trabaja con los 
indexados del Mallard Basic, el Jetsam, y de ahí 
que, con vistas al posterior acceso a los datos, 
haya que crear unas claves. 


- Generar ficheros nuevos: 
Una vez creado un descripwr, se crean con él 
los correspondientes ficheros, que serán el soporte 


Visajet es una base de datos 
muy especial que aprovecha con acierto 
el sistema J etsam del Mallard 
Basic 
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de los datos que se introduzcan. Si por alguna 
razón se ha modificado eJ descriptor, habrá que 
crear los ficheros que le correspondan. En este 
apartado, hemos de poner «B,,: antes del nombre 
que se le va a dar al fichero si queremos que éste 
sea creado en B. Si no se pone nada, lo creará en 
la unidad A. En el caso de que repitamos 
nombre, nos avisa, y pregunta si se quiere borrar 
el ya existente y dar paso al nuevo o bien darle 
al nuevo otro nombre. Esta opción, claro está, es 
imprescindible si queremos llegar a utilizar las 
premisas introducidas en el descriptor. por lo que 
siempre habrá que pasar por ella. 


- Grabar descriptor: 
Una vez leído y modificado. lo que hay que 
hacer es grabar estas modificaciones, cnmo es 
lógico. Este apartado es común para las opciones 
de Leer descriptor y Crear descriptor, siendo esta 
última la segunda opción deJ menú. De la misma 
manera que al generar ficheros nuevos, nos 
avisará al grabar si tenemos un descriptor con el 
mismo nombre. El programa tiene un bloqueo 
que no nos permitirá grabar ni ficheros ni 
descriptores en el disco de programas; si es asÍ, lo 
advertirá y obligará a cambiar de disco. Esta 
opción nos servirá para tener, por ejemplo. una 
«colección" de descriptores, para los cuales 
generaremos ficheros, llegada la hora de 
utilizarlos. 



 


-Crear descriptor: 


Esta sería la primera opción a utilizdr si lo que 
deseamos es crear un fichero. Las premisas son 
las siguientes: 
Para insertar líneas, habrá que ir pulsando la 
tecla 1, con lo que iremos dando paso a la 
definición de los ficheros. Al entrar en cada línea, 
lo primero que hay que dar es el nombre con el 
que vamos a encabezar dicho campo, que tendrá 
una longitud máxima de 21 caracteres. Los 
campos pueden ser de hasta 10 tipos diferentes. y 
son: 
0,1. Literal izquierda/derecha: son campos 
alfanuméricos, encolumnados por izquierda o 
derecha. Lo más usual en este tipo de campos es 
hacerlo por la izquierda. 
2. Litera] forzado: se utiliza para aquellos 
campos en los que deseamos que se entren, 
forzosamente, un número de caracteres 
determinado. 
3. Número ASCII: para cuando proceda, para 
aquellos valores comprendidos entre el O y el 255 
del ASCII. 
4. Fecha: el configurar un campo con este 
formato nos obligará a entrar dos dígiws para el 
día, dos dígitos para el mes y dos para el año. Es 
en este apartado donde se ve claramente el 
aprovechamiento del espacio para la información, 
pues, entrando seis dígitos, el contador de 


J 
1 




 


longitud nos muestra que han sido ocupados tres 
bytes, justo la mitad. 
5. Entero positivo: creo que sin explicaciones. 
6. Entero con signo: me temo que tampoco 
hay que explicar. 
7. Porcentaje: éste es un campo en.el que 
introduciremos un número, que d programa 
entenderá que es un tanto por ciento; es útil, 
pensando en los cálculos que se pueden hacer 
entre números, a la hora de, por ejemplo, hacer 
recibos. 
H. Simple precisión: en este tipo de campos 
podremos introducir hasta siete cifras 
significativas -pudiendo ser menos, claro-o Si 
son más de siete. redondeará. Este apartado se ve 
complementado por el siguiente, DOBLE 
precisión, con el que podremos llegar hasta las 16 
cifras significativas. 
U na vez acabado de entrar los tipos de 
campos, hemos de entrar las claves, en la cual 
meteremos los campos por los que nos va a 
interesar guiar, en un futuro, una búsqueda. 
Como se ha dicho ante
, el número de claves 
puede ser de hasta ocho, wn la posibilidad de 
modificadas, si en un momento dado nos interesd 
una búsqueda o una ordenación diferente. 


-Anular ficheros: 
Es la siguiente opción de este menú, con la 
que borramos aquel fichero que no interese. 
Siempre nos pide confirmación antes de proceder 
al borrado. 


-Leer directorio: 



 


En este apartado, Visajet nos mostrará los 
ficheros creados por é] que están en el disco. sean 
descriptores, de datos, de claves, de recibos. de 
etiquetas, ete. 
Una vez llegados aquí, nos vamos al menú 
principal, a continuar con el resto de las 
opcIOnes. 


Edición de ficheros 


,s 


Una vez creado el descriptor y generado los 
ficheros con los que se va a trabajar, entramos. 
para nuestro trabajo diario de manejar datos. en 
esta opción. En ella podremos dar de alta nuevas 
fichas, quedando éstas inmediatamente ordenadas 
por orden a]fabético, anuladas o modificadas. 
Aquí hay que decir algo a favor del programa y 
es que cuando das de baja una ficha, la siguiente 
alta la hará en el sitio dejado por ésta, con lo que 
el espacio en el disco estará siempre aprovechado 
al máximo. La opción de modificaciones está 
incluida dentro de la de consultas, y éstas se 
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Mediante la indexación de ficheros 
el acceso a los datos 
se hace rápido y fácil 


pueden hacer de diversas maneras, a saber: de 
forma secuencial -una a una en los dos 
sentidos-, por claves. con ]0 que nos sacará 
-de forma asombrosamente rápida- ]a o las 
fichas con las características que deseamos, 
pudiendo cambiar. claro está. la clave de acceso. 


Listado de ficheros 
Con esta utilidad sacaremos listados .dcl 
contenido de un fichero. Por poner un ejemplo, 
podremos sacar un listado de todos los clientes 
que tenemos en N avacerrada -que no serán 
muchos, dado el frío-, o de sólo los que se 
llamen Pepe, y, si queremos, hasta aquéllos a los 
que les debemos dinero..., en tin, que claves 
podemos crear las que queramos. y no es 
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Existe la posibilidad, en todo momento, 
de modificar las claves de acceso 
con facilidad 


..1 


cuestión de enredarse a imaginar posibilidades, 
¿no? Los listados serán siempre en columna, 
pudiendo variar el orden en el que queremos que 
vayan éstas. 


ciento de una cifra. Otra posible utilidad es la de 
introducir pequeñas líneas de texto, con lo que se 
pueden hacer mailings que no sean largos. Si es 
así, el proceso puede resultar un tanto lento. 
También se puede hacer una especie de control 
de vencimientos para los recibos, pues podemos 
pedirle al programa que nos haga los recibos que 
nos vencen entre dos fechas, o en !echa 
determinada. 
Hasta aquí, el Visajet funciona como programa 
para almacenamiento y tratamiento de 
información contenida en ficheros. Las opciones 
que restan son las herramientas que hacen de 
este programa un plato apetitoso pard los 
programadores que trabajen en Mallard Basic 
Vamos a ver el porqué de ello 


LISTADO PLAN CONTABLE: 1 


i\JUr'1. CUENTA 


------------------------------------------------------------------------ 


DESCRIPCION 


----------------------
----------------_. 


.-------------------------------- 


400001 PROVEEDOR PRIMOGENITO 
400002 PROVEEDOR STUPENDO 
40000::: PROVEEDOR DE TRE=::;E:::; 
400004 ......... PF
OVEEDOR DE ORDENADORES 
4UO:*::*:* ....... PF
OVEEDORE:::; 
430001 CLIENTE PERFECTO 
4::0:0002 ....... CLIENTE r'1{.
L.I::nMO 
430003 CLIENTE REGUL.AR 
430004 CLIENTE DEL MONTON 
430*** .... " DEUDORES 
4***** .... ACREEDORES Y DEUDORES 


:t;:Lt.:*::'iq: 


TOTAL CUENTAS 


1- 
1, 


Emisión de etiquetas 
En este apartado creamos un formato para la 
impresión de etiquetas, en el que introduciremos 
el número de etiquetas por línea, la separación 
entre ellas, el ancho y el alto, además de los 
campos de ficha que queremos imprimir. Los 
tipos de letra también hay que introducidos, y 
puede ser único, o llevar cada campo su tipo. 


Emisión de recibos 


Cuando tenemos, por ejemplo, el fichero de las 
personas integrantes de una comunidad de 
propietarios, podremos con esta opción emitir los 
recibos de la Cuota mensual, partiendo de los 
datos de cdda ficha. Esta opción es interesante, 
porque aporta la utilidad de poder hacer 
operaciones matemáticas con los datos de los 
campos que sean numéricos, con las cuatro 
operaciones elementales y cálculo del tanto por 


28 AMSTRAD Semanal 


Regeneración de ficheros 
Cuando tenemos un sistema de ficheros J etsam, 
sean creados por Visajet o no, podremos, con 
esta utilidad, el recuperar un fichero de índices 
(claves) estropeado, o montar un sistema de 
claves diferente al que teníamos previamente. 
Esto servirá, pues, para reparar ficheros dañados 
por un curte de fluido eléctrico, o por cualquier 
otro tipo de causa, tema que es frecuente, sobre 
todo, en soportes magnéticos -léase discos- de 
calidad media. 


Consolidación de ficheros 


Complementa a la opción anterior, y consiste 
tan sólo en poner la marca de consistencia a los 
ficheros de índices. Esta marca es un byte que 
tiene que ir acorde con el mismo en el fichero de 
datos, y es la premisa para que el fichero de 
índices y el de datos se «comprendan», de forma 



e 


que las claves creadas puedan ser utilizadas sobre 
los datos. 


a 


Modificación genérica 
Esta herramienta nos va a valer para anular o 
dar otro valor específico a uno o varios campo:> 
de! fichero de datos. Esto puede ser posible 
también en ficheros de datos que no hayan sido 
creados con Visajet. 


Traspaso de ficheros 
Si el diseño de un fichero se nos ha quedado 
anticuado, o corto, podremos con esta utilidad 
pasar los datos de! fichero viejo a un nuevo 
fichero que crearemos, claro, previamente. 
También es posible aprovechar la información 
contenida en otros ficheros que no pertenezcan a 
Visajet, sólo que al pasada sí ha de ser el nuevo 
fichero uno de este programa. 


A modo de síntesis... 


Podemos con Visajet crear todo tipo de 
ficheros indexados, con grupos de ocho claves de 
acceso. Hasta este punto, e! programa funciona, 
como he dicho antes, como soporte para datos. 
Pero si hay algo que se ve claramente útil es e! 
apartado de herramientas. puesto que con él 
podemos utilizar otro tipo de ficheros ajenos a 
Visajet, o bien, crear ficheros con él para 
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implementarlos a rutinas previas creadas en Basic 
MaIlard. La versatilidad es llamativa. Por otra 
parte, en lo que respecta a e! programa en sí, e! 
nivel de depuración y control de errores es 
elevadu, pues se ha resistido a cuantas pruebas «a 
mala idea» se me han pasado por la cabeza. Si en 
alguna parte hay que introducir un tipo de dato 
determinado, no admitirá otra cosa. El programa 


Visajet, entre otras cosas, 
es una herramienta muy útil para 
la confección de recibos y etiquetas 


se presta a (
ugan) con él, y es probable que se 
hagan una serie de artículos con él explicando en 
profundidad cada una de las utilidades. Y es que 
algunas son complejas. De! resto, e! poner cn 
marcha un fichero de... clientes y t'nviarks los 
recibos para que te paguen es cosa de un IJdr de 
minutos, y todo con las ventajas del elogiado 
Jetsam. y es que este sistema de indexados 
merece elogios. 
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SOPHOS 
Diseñador 
de circuitos 


Primitivo de Francisco 


. 
ImpreSOs 


Pasar a circuito impreso un esquema eléctrico es) con mucho) la 
tarea más ardua en todo el proceso de desarrollo y construcción de 
un circuito electrónico. Se requiere) si se hace a mano) experiencia y 
una buena dosis de paciencia. Por ello) la tendencia actual es que 
los ordenadores realicen todo esto a menor costo y mayor velocidad. 
Sophos es un paquete de software de bajo costo) diseñador de 
circuitos impresos para el Amstrad CPC-128, que viene a resolver 
en gran medida lo dicho. 


I 
1 1 
I 


D e,de hace algunu, año, 'e vienen 
empleando ordenadores para el áiseño de 
circuitos impresos industrialmente, lo cual 
conlleva lógicamente a una simplificación en los 
procesos y, consecuentemente, al abaratamiento 
del producto. En la actualidad el Software usado 
en este cometido, va siendo cada vez más 
complejo y caro, llegando a cubrir áreas incluso 
del propio diseño del esquema y la realización 
física de la placa. En la actualidad ya se empieza 
a hacer industrialmente lo que se ha dado en 
llamar la captura del es.quemático o introducción 
cómoda y rápida del esquem
 eléctrico en el 
ordenador, apoyándose en programas gráficos, 
huyendo un poco del tedioso tratamiento por 
coordenadas. En esto son eficaces herramientas 
los ratones y lapiceros ópticos. 
Una vez confeccionado el esquema en pantalla 
con el apoyo de la biblioteca de gráficos de 
símbolos, etc., se puede simular el circuito en el 
propio ordenador sin necesidad de llegar a 
realizar físicamente un prototipo. 
Cuando los resultados de la simulacíon son los 
preestablecidos, se pasa al diseño del circuito 
impreso y tras este proceso, el ordenador saca 
por plotter o por impresora el dibujo de las 
pistas, para obtener un fotolito y luego la 
realización de la tarjeta impresa y posterior 
ensamblaje. 
Sophos es un programa desarrollado por la 
casa Mister Chip para Amstrad, que viene a 
servir de herramienta en esta última fase de la 
realización de la placa. Es quizá el primero para 
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ordenador personal y puede llegar a ser 
imprescindible para aficionados a la electrónica y 
para profesionales. 
Sophos es capaz de diseñar placas a doble cara 
hasta un tamaño aproximado de medio folio, lo 
que puede equivaler a unos 40 circuitos 
integrados digitales, con un ahorro de tiempo y 
esfuerzo de diseño considerables una vez 
dominado su manejo. El diseño de pistas queda 
en ficheros en el disco, lo cual facilita la 
corrección de errores o modificaciones en 
sucesivas ediciones. El diseño final que sale por 
impresora, la cual habrá de ser de tipo matricial, 
queda a doble escala con un aspecto realmente 
profesional y listo para obtener el fotolito. 


Cómo es Sophos 


En la caja se sirve el disco, conteniendo el 
software por ambas caras y un manual de 
instrucciones no demasiado extenso en texto; pero 
sí lo suficientemente extractado y claro para, con 
un poco de práctica, llegar pronto a obtener los 
resultados deseados. Una vez cargado el 
programa, en el ordenador aparece un primer y 
vistoso menú con cinco opciones que se 
corresponden con otros tantos bloques o módulos 
prácticamente independientes entre sí: 
El primero sirve para crear la placa. 
El segundo efectúa el diseño automático de las 
pistas a partir del fichero creado mediante el 
primer módulo. 



El tercero efectúa el diseño de las pistas 
manualmente a partir del fichero generado por el 
primer módulo, corrige o altera el resultado 
obtenido automáticamente con el módulo dos. 
El cuarto sirve para imprimir el diseño de 
pistas mediante un fichero generado con 
cualquiera de los módulos dos o tres. 
El quinto módulo sirve para configurar la 
impresora adaptando el software a cualquiera de 
las que existen en el amplio abanico comercial. 
U na vez elegido un módulo no es posible 
volver al menú principal si no es reseteando el 
ordenador y volviendo de nuevo a cargar el 
programa. Tampoco se puede pasar de un 
módulo a otro directamente si no es por el 
procedimiento descrito. Esto complica el manejo 
especialmente en el período de prácticas. Por 
tanto, antes de salir de cada módulo, hay que 
asegurarse de haber salvado lo hecho en el 
fichero correspondiente, de lo contrario, el 
trabajo se pierde inútilmente. 
Para un futuro próximo, esta misma casa de 
software promete otros tres módulos adicionales: 
El sexto sustituirá al primero con mejoras en la 
edición y con la posibilidad de disponer de una 
biblioteca de componentes creada por el propio 
usuario. Se incorporará también el color en estos 
componentes y la entrada de datos podrá ser 
mediante un ratón o mediante tableta gráfica. 
El módulo séptimo posibilitará la salida del 
diseño por plotter. 
El octavo será un autotest del trabajo 
realizado. 
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Los cinco módulos actuales 


Cada módulo tiene un menú autoexplicativo, 
al cual se accede mediante ENTER, y se retorna 
de igual manera. 
El primer módulo está dedicado a la edición de 
la placa o entrada de datos. Para ello aparece un 
cursar móvil, cuya prolongación de ejes atraviesa 
toda la pantalla. El cursor se acelera si se oprime 
simultáneamente la tecla SHIFT. Mediante las 
teclas cursaras del teclado y SHIFT se puede 
ampliar el tamaño de la placa hacia abajo y hacia 
la derecha. 
La tecla 0 sirve para colocar nadas, CLR pard 
borrarlos. Cuando se posiciona un nudo con los 
cursores y la tecla 0, aparece en la parte inferior 
de la pantalla la solicitud del nombre que se 
desea asignar a cada nodo. Estos nombres 
servirán posteriormente para el «cabkado" 
automático con el módulo dos. Dando ENTER, 
el nombre queda ignorado. 
SHIFT-C posiciona los nadas de un circuito 
integrado empezando por el uno. 
Inmediatamente, el programa pregunta cuántos 
pines tiene el chip, la anchura del circuito 
integrado, así como la dirección de su colocación 
horizontal o vertical. 
SHIFT-F borra todo. 
SHIFT-G graba el trabajo en disco, 
asignándolc el nombre que se deset' 
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16 PINES +5V 
1- - - - - - -Jc-, 312rOHZ 
'4060 " 
I Q 15 10 CK 
I !5 I 
I R I 
GND--.l 
11-- '0 -- 12- 1 
IMHz 


16 PINES +5V 
Vcc 
4040 (
625) 10 E 
Q2 Q4 QS QIO R 
7 5 13 14 " 


+5V 


47P I 


I 47P 


I'OPF 


Figura 1. Ejemplo de esquema para realizar el circuito impreso con el dÚeñador Sophos 


SHIFT-L carga un fichero creado previamente. 
SHIFT-I saca por impresora un listado con el 
nombre y coordenadas de los nodos. 
El módulo dos efectúa el diseño automático. 
Primeramente, se carga el fichero crado con el 
módulo uno. Seguidamente, existen tres 
opciones: A, B Y C. Se puede introducir 
cualquiera de las tres, según su combinación 
binaria, teniendo en cuenta que la A pone las 
pistas entre nadas. según sus nombres, 
automáticamente. 
La opción B hace que el resultado de la A se 
grabe en disco y la opción C saca por impresora 
los datos de nombres y coordenadas de los nadas 
no conectados. 
Con T AB se cambia la visualización en 
pantalla de una cara u otra. 
El módulo tres es para el diseño manual. Sirve 
para confeccionar la tarjeta manualmente, 
corregir o ampliar. 
La tecla 0 pone nadas, CLR los borra. 
La tecla 1 coloca cuadrados o tramo de pista 
gruesa. Puede servir para poner conecrores. 
La tecla 2 borra la pista indicada por los 
cursores. 
La tecla 8 adelgaza pistas. La 9 las hace más 
gruesas. 
Una pista se confecciona manualmente 
apuntando con los cursores al primer nodo y 
oprimiendo CONTROL, luego se llevan los 
cursores al segundo nodo y oprimiendo COPY se 
coloca automáticamente la totalidad de la pista, 
uniendo los dos nodos por el camino más corto y 
por la cara que encuentre libre. El principio o fin 
de la pista habrá de ser un nodo o un cuadrado, 
nunca en medio de una pista. El resto de los 
comandos son similares a los del módulo uno. 
El módulo cuatro saca por impresora las dos 
caras del circuito impreso a doble tamaño. Para 
ello habrá que cargar el fichero generado con los 
módulos anteriores, seleccionar la cara con T AB 
. " 
e Impnmlr. 
SHIFT-I imprime el circuito, preguntando 
antes la opción de nodo circular o nodo alargado. 
El módulo cinco posibilita la configuración de 
la impresora que, una vez elegida, queda 
grabada en disco y sirve para siempre. 
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Qc 5 
GND 8 
R 
7 


1Hz 


IN-4148 


50Hz 


El programa pide tres opciones: según la 
norma, IBM, EPSON y SEIKOSA, según la 
normativa CITOH o según otra distinta. Para 
esta tercera opción en el manual hay una serie de 
datos e instrucciones a manejar hasta obtener 
empíricamente la configuración correcta. 


Nuestra prueba 


Una vez leído atentamente el manual nos 
pusimos a cacharrear. Primeramente diseñamos 
un pequeño circuito (Figura 1), a guisa de 
ejemplo. El circuito es una base de tiempos de 1 
Hz y 50 Hz controlada por un cristal de cuarzo 
de 1 l'vIHz. El diseño está hecho con rres circuitos 
integrados de la familia CMOS y unos pocos 
componentes discretos. 
Seguidamente, con ayuda del módulo uno, 
fuimos colocando los nodos de los tres circuitos 
integrados y los de los componentes discretos, a 
la vez que íbamos dando nombres a los que 
correspondía. Seguidamente, generamos el primer 
fichero. Configuramos la impresora con el 
módulo cinco y, acto seguido, imprimimos ambas 
caras del circuito impreso mediante el módulo 
cuatro. La impresión tardó un par de minutos. 
pero fue satisfactoria (Figuras 2 y 3). 
Seguidamente hicimos un dibujo de la 
colocación de los componentes (Figura -1-). 
De resultas de nuestra práctica podemos 
resumir que, efectivamente, una vez dominado el 
sistema fue grato ver cómo iban apareciendo las 
pistas y lo fácil que es un retoque. Echamos en 
falta la ausencia de un fondo tramado en la 
pantalla para correcta colocación de los 
componentes y la posibilidad de generar a 
voluntad placas de una sola cara que salieran a 
tamaño real por impresora para prototipos 
sencillos. 
Se puede resumir que es un paquete de 
software muy útil y digno de ser adquirido sin 
que defraude. 
Sophos es una potentísima, y casi 
imprescindible, herramienta de trabajo para 
profesionales y aficionados a la electrónica. 
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Se trata de un paquete de programas CAD 
(diseño asistido por ordenador). compuesto por 
cinco módulos (en esta primera generación), para 
el diseño de circuitos impresos. La enorme ayuda 
que este paquete presta al usuario se valora 
especialmente tras haber realizado manudlmente 
otros diseños de placas impresas. Frente a este 
método alternativo, Sophos presema las siguientes 
ventajas: 
1. Economía de tiempo 
El usuario se ahorra, sin exageración, más del 
80 por ciento de! tiempo que tardaría 
habitualmente en diseñar las placas a mano. 
2. Corrección de errores 
Posibilita y facilita la corrección o el rediseño 
de las placas. 
3. Resultado final 
El diseño final por impresora presenta un 
aspecto absolutamente profesional. Puede 
funcionar con cualquier impresora matricial de 
mediana calidad. 
4. Economía de gastos 
Basta tener en cuenta que el diseño, encargado 
a un empresa profesional, de una placa de 
tamaño de una cuartilla cuesta más de 80.000 
ptas.; lo que demuestra el bajo coste de este 
programa. 
Somos conscientes de que el precio de 
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Figura 2. Impresión de la cara de componentes a doble escala 
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Figura 3" Impresión por la wra de putas a doble wra 


Banco de 
PRUEBAS 


lanzamiento de este paquete es muy inferior al de 
otros programas de similares características Por 
esta razón. no están al alcance de la mayoría de 
profesionales, aficionados y PYMES. Estos 
programas de características sem(
jantes. pero 
para ordenadores de gama superior los 
compatibles PC -cuestan más de 3()(LOOO'ptas.; 
mientras que otros programas de mayores 
prestaciones superan ampliamente el millón de 
pesetas. 
Sophos es el único programa absolutamente 
profesional de esta naturaleza que existe para 
microordenadores personales. 


Características del paquete 


A continuación resumimos brevemente las 
características de este paquete: 
Módulo 1: en este módulo el usuario define las 
dimensiones y distribución de los puntos de 
soldadura, asignando un nombre a cada uno de 
éstos. 
Módulo 2 (módulo de diseño automático): a 
partir del fichero creado por e! primer módulo, 
este segundo se encarga de conexionar entre sí, a 
doble cara, todos los puntos de soldadura que 
tienen e! mismo nombre. 
Módulo 3 (módulo de diseño manual): el 
circuito resultante del segundo módulo se puede 
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47PF 10 PF 
o--H-o O 11 O .GND 
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 10 K.n. . 
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Figura 4" Cara de componente,\. Una vez confeccionada la placa, 10,'- componente,. quedarían colocados' como s'e mUf'.llra m nle gT{[fir fl 
La" conexione.l" hacia el exterior están a la derecha, 


editar con estt' tercero para modificar a voluntad 
cada una de la pistas: redefinir la trayector de 
una pista, borrarla. engrosarla o, simplemente, 
añadir nuevas pistas. Es posiblt' diseñar un 
circuito completo con este único módulo, sin 
necesidad de utilizar los dos primeros; aunque. 
evidentemente, el trabajo es mucho mayor, 
Módulo 4 (módulo de impresión): a partir del 
circuito generado por los módulos 2 ó 3 se hace 
una impresión de la placa a doblt' escala. A 
partir de esta impresión se obtiene un Iotolito y 
por Iotolitografía la placa implesa definitiva. 
l\1ódulo 5: sirvt' tan sólo para configurar la 
impresora, lo qut' garantiza al usuario la 
compatibilidad de este programa con cualquier 
impresora matricial. 


Sophos, segunda generación 


Debido al enorme éxito que, en estos pocos 
días desdt' su lanzamiento. ha obtenido estt' 
programa; se ha decidido ampliar esta primera 
versión en otros tres nuevos módulos. 
Módulo 6: sustituirá al módulo 1, con sus 
posibilidades de edición enormemente 
potenciadas. Sería posible acceder a una 
biblioteca de componentes creada por los propios 
usuarios a medida. En pantalla se presentaría el 
dibujo de los componentes en cuatro colores 
y la entrada de datos sería a través 
de una tableta gráfica o un 
ratón. 
Módulo 7: salida 
del diseño por 
plotter. 
Módulo 8: 
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programa de autotest. Compararía el diseño findl con 
la tabla de conexiones comprobando si el trdzado de 
todas las pistas es correcto. 
Estos tres módulos estarán disponiblt's en un plazo 
de cuatro a seis meses. 
Como nota anecdótica. añadiremos qut' el 
programa ha sido realizado por Paco Menéndez, del 
equipo «Made in Spain», autor de los videojuegos 
«Fred» (1984) y «Sir Fred» (1985), ambos record s de 
vema en Inglaterra y en España. Estudia cuarto curso 
en la ETS de Ingenieros dt' Telecomunicación de 
Madrid. 
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STREET HAWK 
KNIGHT RIDER 
MIAMI VICE 
MOVIE 
EQUINOX 
«v» 
MILLlON 11 DISCO 
GREEN BERET DISCO 
LAS 3 LUCES G DISCO 
DESERT FOX DISCO 
KNIGHT GAMES 
STAINLESS STEEL 
DESERT FOX 
JAK THE NIPPER 
CAULDRON 11 
NEXUS DISCO 
RAMBO + MATCH DA Y DISCO 
STEINLESS STEEL DISCO 
KNIGHT RIDER DISCO 
KNIGHT GAMES DISCO 


PTAS. 
2.300 
2.300 
2.300 
2.300 
2.100 
2.100 
3.300 
3.000 
3.000 
3.000 
2.300 
2.300 
2.600 
2.300 
2.300 
3.000 
3.300 
3.000 
3.000 
3.000 


COMPATIBLE PC IBM 
MONITOR FOSFORO VERDE 
DOS UNIDADES DE DISCO 
360 K UNIDAD 
UNIDAD CENTRAL CON 256 K 
TECLADO EN CASTELLANO 
169.900 PTAS. 
INCLUIDO PAQUETE DE 
SOFTWARE DE GESTION 


PTAS. 
TAPA DE METACRILATO 464 895 
CABLE CENTRONICS 3.175 
CABLE SEGUNDA UNIDAD D. _ 1.790 
CABLES SEPARADORES 6128 1.975 
INTERFACE RS232 9.265 
CINTA VIRGEN C15 69 
CABLE AUDIO 795 
CABLE ADAPTADOR 2 JOYSTICK _ 2.390 
CABLES SEPARADORES 464 1.390 
CABLE SEPARADOR 8256 2.900 
CABLE RS232 2.500 
DISKETTES 3" 735 
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PEDIDOS CONTRA REEMBOLSO SIN NINGUN GASTO DE 
ENVIO. TEL. (91) 275 96 16 - 274 75 02 O ESCRIBIENDO A: 
MICRO-lo CI DUQUE DE SESTO, 50. 28009 MADRID. 
Tiendas y distribuidores grandes descuentos. 
Dirigirse a Diproimsa. el Galatea, 25. Tel. (91) 274 75 03. 



La Facturación 
a su alcance 


La semana pasada comenzamos 
con lo que será nuestro programa de 
facturación. En este número, comienza 
ya el trabajo duro, y en el que 
tendremos que poner todo nuestro 
esfuerzo y concentración para evitar 
los consabidos errores. 
Por desgracia la cosa no va 
terminar aquí y nos veremos obligados 
a publicar el resto de los listados en 
el próximo número. Sin embargo y a 
pesar de todo, pensamos que el 
programa merece la pena y que 
nuestro trabajo será compensado, desde 
el primer momento que ejecutemos 
nuestro paquete de facturación. Así 
sea... 
Por el momento y a la espera de 
nuevas instrucciones, lo mejor es ir 
cargando todos los programas en un 
disco, hasta que en un capítulo 
posterior expliquemos cómo instalados 
correctamente, para que funciones a la 
peifección. 
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PROGRAMA EDITA 


5 ON ERROR 60TO 20000 
10 60SlJB 11440 
20 60SlJB 11260 
30 OPEN .R.,I,.a:albaran. tex.,57 
40 FIELD 1,3 AS cod.cli$,6 AS fecha.a$,39 AS descripci 
on$,1 AS tiva$,4 AS cantidad$,4 AS precioS 
45 6ET 1,1 
50 ultilo.registro=CVS(precio$) 
55 ultilo.registro=ultilo.registro+l 
60 PRINT FNloc$(30,1)¡.E N T R A DAD E L 1 N E A 
S. 
80 linS=S 
82 PRINT FNloc$(2,linX)¡:PRINT lJSIN6 ."I,"'.¡ultilo. 
registro 
90 xX=II:yS=linX:alfaX=2:capX=3:decS=0:60SlJB 10000 
100 IF t$=... TH£N 60SlJB 5000:ClOSE I:CHAIN .Ienu 
105 IF t$=.. THEN 120 
110 (od.(li.l$=STRIN6$(3-LEN(t$),.0.)+t$ 
120 PRINT FNlo($(II,linX)¡cod.cli.l$¡. · 
130 xS=17:yX=linX:alfaX=3:capX=6:decS=0:60SlJB 10000 
135 IF t$=.. · THEN 90 
136 IF t$=. · THEN 170 
140 fecha$=U 
150 60SlJB 10310 
160 IF fecha$=.fallo'. THEN 130 ELSE fecha.a.l$=fecha$ 
170 PRINT FNloc$(17,linS);fecha.a.l$;. · 
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175 GOSUB 30000 
176 IF IlenoX=l THEN 210 
180 xS=26:yX=linX:capX=37:decX=0:alfaS=3:GOSUB 10000 
190 IF t$=STRING$(37," ") THEN 130 
200 descripcion.1$=t$ 
210 PRINT FNloc$(26,linX)¡descripcion.1$¡" · 
211 IF IlenoS=l THEN 214 
212 xS=66:yS=linX:capX=1:decS=0:alfaS=3:GOSUB 10000 
213 iva$=t$:IF iva$<>" " ANO iva$<>"1" ANO iva$<>"2" A 
NO iva${>"3' THEN 212 
214 PRINT FNloc$(66,linS);iva$¡' ":IF iva$=" " THEN 18 
O 
220 xS=70:yS=linX:capX=6:decX=0:alfaX=1:GOSUB 10000 
230 IF t$="" THEN 212 
240 cantidad.l=tl 
250 PRINT FNloc$(70,linX)¡:PRINT USING "111,111";canti 
dad. 1 
255 IF IlenoS=l THEN 290 
260 xS=80:yS=linS:alfaS=1:capX=6:decS=0:GOSUB 10000 
270 IF t$="" THEN 220 



;.=. 
// 
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./ 
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/' 


280 precio.l=tl 
290 PRINT FNloc$(80,linX)¡:PRINT USING ""I,III"¡preci 
0.1 
300 PRINT FNloc$(5,28)¡"CORRECTO (INS) CANCELAR (CAN) 


. ". 
. , 


310 GOSUB 11380 
312 PRINT FNloc$(1,1) 
315 GOSUB 11500 
317 PRINT FNloc$(1,1) 
320 IF bienX=O THEN 260 
330 LSET cod.cli$=cod.cli.l$ 
340 LSET fecha. a$=fecha.a.1$ 
350 LSET descripcion$=descripcion.l$ 
355 LSET tiva$=iva$ 

60 LSET cantidad$=HKS$(cantidad.l) 
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PROGRAMA MENU 
10 GOSUB 11440 
15 ronS=CHRS(27)+"p':roffS=CHRS(27)+"q':sonS=CHR$(27)+ 
'r":soffS=CHRS(27)+'u' 
20 GOSUB 11260 
30 RE" --- ilpresion de pantalla ----- 
40 PRINT FNloc$CI0,3)¡son$¡'" E N U G E N E R A l"¡so 
f1$ 
50 PRINT FNloc$(20,6)¡' O - BORRADO DE ARCHIVOS' 
60 PRINT FNlocSC20,S)¡' 1 - CREACION DE ARCIVOS" 
65 PRINT FNlocS(20,10)¡" 2 - MANTENIHIENTO DE ARTICULO 
S" 
70 PRINT FNlocS(20,12)¡' 3 - MANTENIMIENTO DE CLIENTES 


. 


80 PRINT FNlocS(20,14)¡" 4 - lISTADO DE CLIENTES. 
90 PRINT FNloc$(20,16)¡. 5 - ENTRADA DE lINEAS' 
100 PRINT FNlocS(20,18)¡" 6 - HODIFICACION DE lINEAS' 
105 PRINT FNlocS(20,20)¡' 7 - EDICION DE AlBARANES' 
107 PRINT FNlocS(20,22)¡' 8 - lISTADO DE IVAS" 
110 PRINT FNlocS(20,24)j' 9 - REESTRUCTURACION FICHERO 
DE lINEAS (saque copias de seguridad)" 
130 PRINT FNlocS(I,I):PRINT FNlocS(5,2S)j'PUlSE lA TEC 
lA DE FUNCION DESEAOA : "j:funS=INPUT$(I) 
140 IF fun${"O. OR fun$)"9" THEN 130 
150 tun=VAl(funS) 
155 IF fun=O THEN GOSUB 580 
156 PRINT ron$ 
160 ON fun GOSUB 500,510,520,530,540,550,560,570,600 
161 PRINT roft$ 
170 GOSUB 11500 
180 PRINT FNlocSC5,28)¡"CORRECTO CINS) CANCELAR (CAN) 


. lo 
. , 


190 GOSUB 11380 
200 IF bienS=1 THEN 400 
210 pri.linS=6:ult.linS=24:pri.coIX=16:ult.coIX=19 
215 PRINT FNloc$(I,I)¡ 
220 GOSUB 11180 
230 GOTO 130 
400 ON tun GOTO 430,435,440,450,460,470,480,490,495 
405 IF fun=O THEN 420 
410 GOTO 20 
420 ERA a::t:.tex 
421 ERA a::t:.key 
425 GOTO 20 
430 CHAIN "crea.bas. 
435 CHAIN "mante12.bas' 
440 CHAIN ".anten.bas" 
450 CHAIN "listado.bas" 
460 CHAIN "edita.bas' 
470 CHAIN ..oedit.bas' 
4S0 CHAIN "efactu.bas" 
490 CHAIN "lisfactu.bas" 
495 PRINT cIS:CHAIN "caMbio.bas" 
500 PRINT FNlocS(16,8)¡'--)":RETURN 
510 PRINT FNlocS(16,10)¡'--)":RETURN 
520 PRINT FNlocS(16,12)¡'--)':RETURN 
530 PRINT FNlocS(16,14)¡'--)":RETURN 
540 PRINT FNloc$(16, (6)j'--)":RETURN 
550 PRINT FNlocS(16,18)¡'--)":RETURN 
560 PRINT FNloc$(16,20)j'--)':RETURN 


----. 


570 PRINT FNlocS(16,22)j"--)':RETURN 
580 PRINT FNlocS(16,6)¡'--)':RETURN 
600 PRINT FNloc$(16,24)j'--)':RETURN 
10000 REH --------- control de digitos---------------- 
10010 REH xS=colulna yS=fila capS=capacidad 
10020 REH decS=decimales alfaX=nulerico(l) alta 
nUlericos (2) alfanulcol (3) 
10030 RE" ---------------------------------___________ 


10040 PRINT FNloc$(xS,yS)¡STRIN6S(capS+decX+l,'_') 
10050 tS=,u:t=O:rS=.":falloS=O:puntoS=O 
10060 PRINT CHRS(7) 
10070 x1S=xS 
10080 PRINT FNlocS(xll,yS)¡:rS=INPUTS(I) 
10090 r=ASC(r$) 
10100 IF r=13 THEN 10170 
10110 IF r{32 OR r)12S THEN 100S0 
10120 IF r=127 ANO t)O THEN t=t-l:t$=lEFTS(t$,t): PRIN 
T FNloc$(xX,yS)jtSj'_':GOTO 100S0 
10130 IF r=127 ANO t=O THEN 10080 
10140 t=t+l 
10150 IF t)capS+decl THEN t=t-l:GOTO 10080 
10160 tS=tS+rS:PRINT FNlocSCxS,yl)¡tS:GOTO 100S0 
10170 RE" ---------------- validacion ---------------- 


10180 IF alfal=2 THEN RETURN 
10190 IF alfaS=3 THEN t$=t$+STRINGS(capl-lENCtS),' U): 
RETURN 
10200 FOR nUlericoS=1 TO lENCtS) 
10210 rS=HIDS(tS,nulericoS,I) 
10220 IF (rS{"O' OR rS)'9") ANO rS{)'.' THEN falloS=1 
10230 IF r$='.' THEN puntoS=puntoS+l 
10240 NEXT nUlericol 
10250 IF talloS=1 OR puntoS)1 THEN 10000 
10260 tl=CDBl(VAl(t$» 
10270 tl=tltl0'decS 
10280 tI=INT< ti) 
10290 tl=tl/l0'decS 
10300 RETURN 
10310 REM ------------------- techa ---------------___ 


10320 REH la fecha sielpre 6 digitos 
10330 REH ----------------------------------__________ 


10340 IF lEN(fechaS){)6 THEN techaS="fallo!':RETURN 
10350 fl=VAl(HIOS(fechaS,I,2» 
10360 f2=VAl("IO$(fechaS,2,4» 
10370 f3=VAl(HIOS(fechaS,4,6» 
10380 IF fl{1 OR f2{1 OR fl)31 OR f2)12 THEN fechaS='f 
alIo!": RETURN 
10390 f4=(f2=1)+(f2=3)+(f2=5)+Cf2=7)+(f2=8)+(f2=10)+(f 
2=12) 
10400 IF fl)30 ANO NOT f4 THEN fechaS="fallo!':RETURN 
10410 IF fl)29 ANO f2=2 THEN fechaS="fallo!':RETURN 
10420 IF tl)28 ANO f2=2 ANO f3 HOO 4=0 THEN fechaS='ta 
lIo! ': RETURN 
10430 RETURN 
10440 REH ------------------------ ficheros -------___ 
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10450 RE" 


- 



10460 REI1. 
10470 REI1 
10480 RE/'! 
10490 REI1 
10500 REI1 
10510 REI1 -------------------------------------------- 


¡ 
I 


10520 RE" 
10530 RE/'! inicio 
10540 BUFFERS 10 
10550 longregX=LEN(cadS) 
10560 OPEN NK",nuMfiX,nomfidatS,nolfiindS,2,longregX 
10570 FIELO nUlfiX,longregl AS ficS 
10580 ON tipX GOSUB 10630,10710,10820,10930,11000,1109 
O 
10590 IF tipX<1 OR tipX>6 THEN 10620 
10600 resX=CONSOLIOATE(nulfiX) 
10610 CLOSE numfiX 
10620 RETURN 
10630 RE" lectura de una clave 
10640 resX=SEEKKEY(nulfiX,O,ranX,claS) 
10650 IF resX<>O THEN ferrorX=resX:RETURN 
10660 ferrorX=O 
10670 numX=FETCHREC(numfiX) 
10680 GET nUlfiX,nulX 
10690 cadS=ficS 
10700 RETURN 
10710 REI1 --- lectura de la clave siguiente 
10720 resX=SEEKKEY(nulfiX,O,ranX,claS) 
10730 IF resX(>O THEN ferrorX=resX:RETURN 
10740 ferrorX=O 
10750 resX=SEEKNEXT(nulfiX,O) 
10760 IF resl<>O ANO resX<>101 ANO resX<>102 THEN ferr 
orX=resX:RETURN 
10770 ferrorX=O 
10780 nUIX=FETCHREC(numfiX) 
10790 6ET nUlfiX,nulX 
10800 cadS=ficS 
10810 RETURN 
10820 REN lectura de la clave anterior 
10830 resX=SEEKKEY(nulfil,O,ranX,claS) 
10840 IF resX(>O THEN ferrorX=resX:RETURN 
10850 ferrorX=O 
10860 resX=SEEKPREV(numfiX,O) 
10870 IF resX<>O ANO resX<>101 ANO resX<>102 THEN ferr 
orX=resX:RETURN 
10880 ferrorX=O 
10890 nUIX=FETCHREC(nulfiX) 
10900 GET nUlfiX,nulX 
10910 cadS=ficS 
10920 RETURN 
10930 RE" ----- borrar un registro 
10940 resX=SEEKKEY(numfiX,O,ranX,claS) 
10950 IF resX(>O THEN ferrorl=resl:RETURN 
10960 ferrorl=O 
10970 resX=OELKEY(nulfiX,O) 
10980 IF resX<)O ANO resX()101 ANO resX()l02 ANO resX< 
>103 THEN ferrorl=resl:RETURN 
10990 ferrorX=O:RETURN 
11000 RE!'! ------ altas de claves 


11010 resX=SEEKKEY(nulfiX,O,ranX.claS) 
11020 IF resX=O THEN ferrorl=900:RETURN 
11030 ferrorX=O 
11040 LSET ficS=cadS 
11050 resX=AODREC(nuafiX,O,ranl,claS) 
11060 IF resX(>O THEN ferrorX=resX:RETURN 
11070 ferrorS=O 
11080 RETURN 
11090 REI1 ------ lodificacion de registros 
11100 resX=SEEKKEY(nulfiX,O,ranX,claS) 
11110 IF resX<>O THEN ferrorl=resX:RETURN 
11120 ferrorX=O 
11130 nUIS=FETCHREC(nulfiX) 
11140 GET nUlfiX,nulS 
11150 LSET ficS=cad$ 
11160 PUT nUlfiX 
11170 RETURN 
11180 REI1 ----------------- borrado de la pantalla --- 


11190 RE" pri.linX=1 linea ult.linX=ultila linea p 
ri.colX=1 colulna 
11200 REI1 ult.colX=ultila colulna 
11210 REI1 -------------------------------------------- 


11220 FOR pIX=pri.linl TO ult.linX 
11230 PRINT FNlocS(pri.colX,plX)¡SPC(ult.colX-pri.colX 
) 
11240 NEXT pIS 
11250 RETURN 
11260 RE" ------------- larco de la pantalla --------- 


11270 1IS=CHR$(134)+STRIN6S(87,CHRS(138»+CHR$(140) 
11280 PRINT clS¡IIS 
11290 FOR pl=1 TO 26 
11300 PRINT CHRS(133)¡STRINGS(87.CHRS(32»¡CHRS(133) 
11310 NEXT pl 
11320 PRINT CHR$(135)¡STRINGS(87.CHRS(138»¡CHRS(141) 
11330 FOR pl=1 TO 1 
11340 PRINT CHRS(133)¡STRIN6S(87," ")¡CHRS(133) 
11350 NEXT pl 
11360 PRINT CHRS(131)¡STRIN6S(87,CHRS(138»¡CHRS(137) 
11370 RETURN 
11380 RE!'! ------------------- correcto sIn ----------- 


11390 rS=NN:WHILE rS(}nSN ANO rS(}NNN 
11400 rS=INPUTS(I) 
1141 O WENO 
11420 IF rS="S" THEN bienX=1 ELSE bienX=O 
11430 RETURN 
11440 REI1 ------- inicializacion --------------------- 


11450 cl$=CHRS(27)+"E N +CHRS(27)+NY' 
11460 OEF FN LOCS(x,y)=CHR$(27)+.Y N +CHR$(32+y)+CHRS(32 
+x) 
11470 RETURN 
11480 RE" c.digitos 10000,fecha 10310,archivos 10440.b 
orrado 11180,larco 11260,correcto 11380,inicializacion 
11440 
11500 REI1 ----- lilpia linea Mensajes ----- 
11510 PRINT FNloc$(5,28)¡N 


':RETURN 
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370 LSET precio$="KS$Cprecio.l) 
380 PUT l,ultilo.registro 
385 ultilo.registro=ultilo.registro+l 
390 linS=linS+l 
400 IF linX=27 THEN 60SUB 11260:60TO 60 
410 GOTO 82 
5000 . ------------- grabacion ultilo registro ------- 


5010 ultilo.registro=ultimo.registro-l 
5020 LSET precio$="KS$Cultilo.registro) 
5030 PUT 1,1 
5040 RETURN 
10000 RE" --------- control de digitos---------------- 


10010 RE" xS=colulna yS=fila capS=capacidad 
10020 RE" decS=decilales alfaS=numericoCl) alfa 
nUlericos (2) alfanumcol (3) 
10030 REH -------------------------------------------- 


10040 PRINT FNloc$CxS,yS)jSTRING$CcapS+decS+l,._R) 
10050 t$=.R:t=O:r$=.R:falloS=O:puntoS=O 
10060 PRINT CHR$(7) 
10070 x1S=xS 
10080 PRINT FNlocSCxlS,yS)j:r$=INPUTSC1) 
10090 r=ASCCr$) 
10100 IF r=13 THEN 10170 
10110 IF r{32 OR r)255 THEN 10080 
10120 IF r=127 ANO t)O THEN t=t-l:t$=LEFT$CtS,t): PRIN 
T FNloc$(xS,yS)jt$jR_.:60TO 10080 
10130 IF r=127 ANO t=O THEN 10080 
10140 t=t+l 
10150 IF t>capS+decS THEN t=t-l:GOTO 10080 
10160 t$=t$+r$:PRINT FNloc$CxS,yS)jt$:GOTO 10080 
10170 REH ---------------- validacion ---------------- 


10180 IF alfaS=2 THEN RETURN 
10190 IF alfaS=3 THEN t$=t$+STRING$CcapS-LENCtS)," .): 
RETURN 
10200 FOR nUlericoS=1 TO LENCt$) 
10210 r$=HIOSCt$,nulericoS,I) 
10220 IF Cr$(.O. OR r$).9.) ANO r$(>.." THEN falloS=1 
10230 IF r$="." THEN puntoS=puntoS+l 
10240 NEXT nUMericoS 
10250 IF falloX=1 OR puntoS)1 THEN 10000 
10260 tl=COBLCVALCt$» 
10270 tl=tl*10'decS 
10280 tl=INTC ti) 
10290 t.=tl/l0'decS 
10300 RETURN 
10310 RE" ------------------- fecha ------------------ 


10320 RE" la fecha sieMpre 6 digitos 
10330 REH -------------------------------------------- 


10340 IF LENCfecha$){)6 THEN fecha$="fallo!":RETURN 
10350 fl=VALCHIO$Cfecha$,1,2» 
10360 f2=VALC"IO$Cfecha$,3,2» 
10370 f3=VALC"IO$Cfecha$,5,2» 
10380 IF fl<1 OR f2<1 OR fl)31 OR f2>12 THEN fecha$="f 
allo!": RETURN 


10390 f4=Cf2=1)+Cf2=3)+(f2=5)+Cf2=7)+Cf2=8)+Cf2=10)+Cf 
2=12) 
10400 IF fl)30 ANO NOT f4 THEN fecha$=.fallo!.:RETURN 
10410 IF fl)29 ANO f2=2 THEN fecha$='fallo!':RETURN 
10420 IF fl>28 ANO f2=2 ANO f3 "00 4=0 THEN fecha$='fa 
110!': RETURN 
10430 RETURN 
10440 RE" ------------------------ ficheros ---------- 


10450 RE" 
10460 RE" 
10470 RE" 
10480 RE" 
10490 RE" 
10500 RE" 
10510 REH -------------------------------------------- 


10520 RE" 
10530 REH inicio 
10540 BUFFERS 10 
10550 10ngregS=LENCcad$) 
10560 OPEN 'K',nulfiS,nolfidatS,nolfiind$,2,longregS 
10565 IongregS=LENCcad$) 
10570 FIELO nUlfiS,longregS AS fic$ 
105800N tipS GOSUB 10630,10710,10820,10930,11000,1109 
O 
10590 IF tipS<1 OR tipS>6 THEN 10620 
10600 resS=CONSOLIOATECnulfiS) 
10610 CLOSE nUlfiS 
10620 RETURN 
10630 RE" lectura de una clave 
10640 resS=SEEKKEYCnulfiS,O,ranS,cla$) 
10650 IF resX{>O THEN ferrorS=resS:RETURN 
10660 ferrorS=O 
10670 nUIS=FETCHREC(nulfiS) 
10680 6ET nUlfiS,nulS 
10690 cad$=fic$ 
10700 RETURN 
10710 RE" --- lectura de la clave siguiente 
10720 resS=SEEKKEYCnulfiS,O,ranS,cla$) 
10730 IF resS(>O THEN ferrorS=resS:RETURN 
10740 ferrorS=O 
10750 resS=SEEKNEXTCnulfiS,O) 
10760 IF resS<>O ANO resS{)101 ANO resS(>102 THEN ferr 
orS=resS:RETURN 
10770 ferrorS=O 
10780 nUIS=FETCHRECCnulfiX) 
10790 GET numfiS,nuIS 
10800 cad$=fic$ 
10810 RETURN 
10820 REN lectura de la clave anterior 
10830 resS=SEEKKEY(nulfiX,O,ranS,cla$) 
10840 IF resX<>O THEN ferrorS=resS:RETURN 
10850 ferrorS=O 
10860 resS=SEEKPREVCnulfiS,O) 
10870 IF resS(>O ANO resX(>101 ANO resS(>102 THEN ferr 
orS=resS:RETURN 
10880 ferrorS=O 
10890 nUIS=FETCHRECCnulfiS) 
10900 6ET nUlfiS,nulS 
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10910 cadS=ficS 
10920 RETURN 
10930 RE" ----- borrar un registro 
10940 resS=SEEKKEY(nulfiS,O,ranS,claS) 
109S0 IF resS<>O THEN ferrorS=resS:RETURN 
10960 ferrorS=O 
10970 resS=OELKEY(nulfiS,O) 
109S0 IF resS<>O ANO resS<>101 ANO resS<>102 ANO resS< 
>103 THEN ferrorS=resS:RETURN 
10990 ferrorS=O:RETURN 
11000 REH ------ altas de claves 
11010 resS=SEEKKEY(numfiS,Q,ranS,claS) 
11020 IF resS=O THEN ferrorS=900:RETURN 
11030 ferrorS=O 
11040 LSET ficS=cadS 
11050 resS=AOOREC(nulfiS,O,ranS,claS) 
11060 IF resS<>O THEN ferrorS=resS:RETURN 
11070 ferrorS=O 
11 OSO RETURN 
11090 REH ------ lodificaeion de registros 
11100 resS=SEEKKEY(numfiS,O,ranS,claS) 
11110 IF resS<>O THEN ferrorS=resS:RETURN 
11120 ferrorS=O 
11130 numS=FETCHREC(nulfiS) 
11140 GET numfiS,nuIS 
111S0 LSET ficS=cadS 
11160 PUT nUlfiS 
11170 RETURN 
111S0 REH ----------------- borrado de la pantalla --- 


11190 RE" pri.linS=1 linea ult.linl=ultila linea p 
ri.eolS=1 eolulna 
11200 REH ult. colS=ul tima columna 
11210 REM -------------------------------------------- 


11220 FOR plS=pri.linS TO ult.linS 
11230 PRINT FNlocS(pri.coll,pll)¡SPC(ult.eoll-pri.eolS 
) 
11240 NEXT pIS 
112S0 RETURN 
11260 RE" ------------- larco de la pantalla --------- 


11270 1IS=CHRS(134)+STRINGS(S7,CHRS(13S»+CHRS(140) 
112S0 PRINT elS¡llS 
112S1 PRINT CHRS(133)¡STRIN6S(S7,CHRS(32»¡CHRS(133) 
112S2 PRINT CHRS(13S)¡STRIN6S(S,CHRS(13S»¡CHRS(142)¡S 
TRINGS(S,CHRS(13S»¡CHRS(142)¡STRINGS(S,CHRS(13S»¡CHR 
S(142)¡STRINGS(40,CHRS(1 
3S»jCHRS(142)¡CHR$(13S)¡CHRS(13S)¡CHRS(142)¡STRINGS(9 
,CHR$(13S»jCHRS(142)jSTRING$(9,CHRS(13S»¡CHRS(141) 
112S3 PRINT CHRS(133)¡8 NUI li "¡CHRS(133)jl COO "¡CHR 
S(133)¡1 FECHA I¡CHRS(133)jl OESCRIPCION 
"¡CHRS(13 
3)¡IIV"jCHRS(133)j' CANTIDA "¡CHRS(133)¡1 PRECIO '¡CH 
RS(133) 
112S4 PRINT CHRS(13S)¡STRINGS(S,CHRS(13S»¡CHRS(143)¡S 
TRINGS(S,CHRS(13S»jCHRS(143)jSTRING$(S,CHR$(13S»¡CHR 
S(143)¡STRINGS(40,CHRS(1 
3S»iCHRS(143)jCHR$(13S)jCHRS(13S)¡CHRS(143)jSTRING$(9 
,CHRS(I38»¡CHRS(143)¡STRINGS(9,CHRS(13S»¡CHRS(141) 


11290 FOR pl=1 TO 22 
11300 PRINT CHRS(133)¡STRINGS(S,CHRS(32»jCHRS(133)¡ST 
RIN6S(S,CHRS(32»jCHRS(133)¡STRIN6$(S,CHRS(32»¡CHRS(1 
33)jSTRINGS(40,CHRS(32» 
¡CHRS(133)¡1 IjCHRS(133)¡STRINGS(9,CHRS(32»¡CHRS(133 
)¡STRINGS(9,CHRS(32»¡CHRS(133) 
11310 NEXT pl 
11320 PRINT CHRS(13S)jSTRINGS(S7,CHRS(13S»¡CHRS(141) 
11330 FOR pl=1 TO 1 
11340 PRINT CHRS(133)¡STRINGS(S7,8 1)¡CHRS(133) 
11350 NEXT pl 
11360 PRINT CHRS(131)¡STRINGS(S7,CHRS(13S»¡CHRS(137) 
11370 RETURN 
113S0 REM ------------------- correcto sIn ----------- 


11390 rS="":WHILE rS<>ISI ANO rS<>'N" 
11400 rS=INPUTS(I) 
lUlO WEND 
11420 IF rS="S" THEN"bienl=1 ELSE bíenS=O 
11430 RETURN 
11440 REH ------- inieializaeion --------------------- 


114S0 clS=CHRS(27)+8E"+CHRS(27)+IY" 
11460 OEF FN LOCS(x,y)=CHRS(27)+'Y"+CHRS(32+y)+CHRS(32 
+x) 
11470 RETURN 
114S0 RE" c.digitos 10000,fecha 10310,arehivos 10440,b 
orrado 111S0,mareo 11260,correcto 113S0,inicializacion 
11440 
11500 REM ----- lilpia linea mensajes ----- 
11510 PRINT FNlocS(S,2S)¡" 


":RETURN 


20000 PRINT el$. 
20010 PRINT FNlocS(10,10)j"[[ ERROR !! : Compruebe si 
el disco del ilpulsor 'A' es el correcto." 
20020 PRINT FNlocS(10,12)¡8Si es correcto pulse (INS) 
en caso contrario cambielo y pulse (CAN)8 
20030 PRINT FNlocS(10,28)¡ 
20040 60SUB 113S0 
200S0 IF bienS=l THEN PRINT FNlocS(10,2S)¡"Error "¡ERR 
jl en la linea "¡ERL¡".Llame al servicio tecnico. "¡:FO 
R 9=1 TO 5000:NEXT g:CHA 
IN Imenu 
20060 IF ferror<>O THEN GOTO 20 
20070 RESUME 20 
30000 ' ---------------- entrada del eodigo de articul 
o ---------------- 
30010 xl=5:yS=2S:alfaS=2:capl=4:decS=0:GOSUB 10000 
30020 IF tS=11 THEN llenoS=O:RETURN 
30030 codS=STRINGS(4-LEN(tS),101)+ts 
30040 IF LEN(codS)<>4 THEN 30000 
30050 cadS=STRINGS(63,CHRS(0»:nulfiS=S:nolfidatS='a:c 
arti.tex':nolfiindS="a:carti.key' 
30060 ranS=I:claS=codS:tipS=I:GOSUB 10440 
30070 precio.I=CVS(HIOS(cadS,31,4» 
300S0 IF ferrorl<>O THEN 30000 
30090 descripcion.IS=MIDS(eadS,I,29):ivaS=MIDS(eadS,30 
,1> 
30100 llenoS=1 
30110 RETURN 
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Esta sección está der¿icada a todas las compraJ
 ventas, clubs de 
usuarios de Amstrad, programadores YJ en general, cualquier clase de 
anuncio que pueda servir de utilidad a los lectores. IOdo aquel que lo 
desee puede enviamos su. anuncio, mecanografiado, a: HOBBY 
PRES'S, S.A_ AMSTRAD Semanal. Apartado de Correos 54.062. 
28080 Madrid. ¡ABSTENERSE PIRATAS! 


Mercado 
C.MUN 


. . . . . . . . . . . . .. .............. .............. 


CL VB de usuarios Amstrad 
estaría interesado en contactar 
con otros clubs o particulares de 
la misma marca de toda España 
y en especial de Albacete, 
Madrid y Zaragoza para 
intercambio de inf()rmación, 
programas, ideas y trucos, etc. 
Prometemos contestar a todos. 
Interesados esciribir a: Club de 
Usuarios de Albacete P. ° de la 
Cuba, 30, 3. ° dcha. 02005 
Albacete. 


. . . . . . . . . . . . . . 


DESEARIA contactar con 
usuarios del Amstrad 
ESPEICAL del 6128 df' 
Valencia capital para 
intercambiar programas (juegos 
y utilidades). Te!. (96) 3516422 
(llamar de nueve a once noche). 
Preguntar por José. 


. . . . . . . . . . . . - 


VENDO Amstrad CPC 
6128. Teclado en castellano. 
Comprado en agosto del 86. 
Regalo 6 discos, base de datos 
Amsfile, libros: Música y 
sonidos con Amstrad y Código 
Máquina para principiantes con 
Amstrad, y revistas. Tel (952) 
340096. Málaga. 


. . . . . . . . . . . . . . 


DESEARIA contactar con 
usuarios del Amstrad para 
intercambiar juegos, como: Sir 
Fred, Gost N'globing, Rali 11, 
Gunfring, Rambo, Commando. 
Tengo muchos más. Interesados 
llamar al (974) 22 14 19, o bien 
escribir a Carlos Biarge Conte 
Avda. de los Pirineos, 9 2. ° A. 
Huesca. ¡Enviad lista! 
Contestaré a todos. 
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VENDO todo tipo de 
programas para Amstrad 464, 
664, 6128. En disco o en cinta 
poseo muy buenas utilidades, 
compilado res y las últimas 
novedades en lo referente a 
juegos. Interesados-as escribir a 
A1aría Domenech Molla P. o de la 
Cuba 30, 3. o dcha. 02005 
Albacete o bien llamar al (967) 
21 51 42 (de 10 en adelante). 
Sólo enviaré a quien envíe lista 
(poseo más de 375 programas, 
todos dIos comerciales). 


. . . . . . . . . . . . . . 


INTERCAMBIO juegos y 
utilidades para la serie CPC 
sólo cinta. Tengo unos 100 
como: Ghost'n Goblins, Bomb 
Jack, Rock'n lucha... etc. 
Interesados llamar al (974) 
36 16 39 de seis a nuevf' de la 
tarde. Preguntar po Luis o 
escribir a Sergio Sanvicente 
Lasaosa. Avda. Escuela Militar 
de Montaña, 9,3.°.22700 Jaca 
(Huesca). 


. . . . . . . . . . . . . . 


COMPRO unidad de disco 
Amstrad DDI, (con 
controlador), debe estar en 
perfectas condiciones, con 
manuales y discos sistema 
operativo, etc. Interesados 
escribir a Carlos Gil Solá, A vda. 
Diagonal 305, 2.° 2. a . 08013 
Barcelona. 


. . . . . . . . . . . . . . 


Deseo contactar con usuarios 
dd Amstrad PCW 8256 para 
intercambio de programas, 
interesados escribir a Alberto 
González. Sueca, 17, puerta 27. 
46006 Valencia. 


. . . . . . . . . . . . . . 


Vendo Amstrad CPC 6128 
con más de 70 programas 
comerciales incluyendo entre 
otros: Multiplán d-BASE II. 
\Vordstar, Dr. Graph, Dr. 
Draw, Contabilidad ProfesionaL 
cte..., más multitud de ju<:gos y 
aventuras. (Valor de mercado 
superior a 200.000 ptas. tan 
sólo los programas). Todo por 
sólo 98.000 ptas. Interesados 
llamar al tel. 200 81 82 
Barcelona (tardes). Preguntar 
por Guillermo. 


. . . . . . . . . . . . . . 


Cambio monitm- Amstrad 
GT 65 (fosforo verde) y un XZ 
Spectrum 48 K con sus 
accesorios y con un interface 
tipo kempston por un monilOl 
Amstrad de color. Todo en 
buen estado de conservación. 
Interesados llamar al tel. (91) 
269 34 11, Madrid. Preguntar 
por A-l(guel. 


. . . . . . . . . . . . . . 


Cambio programas de juegos 
y utilidades para Amstrad. 
Interesados escribir a Afz:t:uel A. 
Sierra. Arenal, 120, 5. o Dcha. 
09200 Miranda de Ebro 
(Burgm). Mandar lista, 
contestaré. 




 


. . . . . . . . . . . . . . 


Vendo programa de 
contabilidad, hasta 100 
empresas, para PCW 8256 y 
PCW 8512, comprado hace 
medio año. Precio muy 
interesante. José Luis. Tel. 
638 64 56. 


. . . . . . . . . . . . e _ 
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THYRA la Valkyna, 
bella y valerosa; 
está protegida por 
una fuerte 
armadura 


Thor, el Guerrero 
bravo y valiente: 
no hay nadie que 
iguale su habilidad 
en la lucha 
cuerpo a 
cuerpo 
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Que lor, el Duende, 
inteligente e inr""ni(\\J: 
su mcreíble rapidL_ le 
hacL un formula 
luchador. 
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Merlín, el Mar 
nustico y hechicen" 
el poder de 'u mag.. 
c: mmens( 
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Entra en el mundo de los monstruos 
y los laberintos. 
Viaja por los senderos del misterio ¡( 
y combate en busca del alimento que 
te dará la energía. Tu camino estará repleto de peligrosos 
monstruos y legiones de enemigos, pero no estás solo en tu busca 
de alimentos, tesoros y pociones mágicas, tus amigos estarán contigo. 
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Corte limpio 
L a forma más rápida y 
sencilla de cortar limpiamente los 
márgenes agujereados del papel 
continuo para impresoras con 
esta guillotina especial de la marca 
inglesa ACCO. 
En cuestión de segundos, se 
pueden montar hasta 25 hojas de 
papel continuo en su garganta 
para su posterior guillotinado. 
Tan sencillo como el mecanismo 
de un peine' y por tan sólo 2.520 
ptas. es vuestro, adquiriéndolo 
en Infor-Ofic. Julio Merino, 14. 
28026 Madrid. 


¿Te suena? 
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P or supuesto que te sonará, (de este último ya dimos cuenta 
porque la marca es Amstrad, en esta sección), y por último, 
pero mejor te sonará en cuanto los ordenadores. Pues bien, 
te digamos que se trata de un nuestro importador, Indescomp. 
equipo de música. No te por fin se ha decidido a traernos 
asombres porque Amstrad no es esa pequeña historia desconocida 
sólo una marca de ordenadores. poniendo a nuestra disposición la 
Concretamente en España, se ha cadena Tower TS-46 que véis en 
hecho la casa por el tejado, la fotografía al precio de 33.
90 
porque Amstrad dio sus primeros ,ptas. Todo un completo. eqmpo 
pasos en el campo de la alta e
tér
o con mue?le que mcluye 
fidelidad con sus equipos de glradlscos, amplIficador, 
música, radio cassette para ecualizador de cinco bandas, 
coche, posteriormente pasó a la doble pletina de cassette, 
imagen con televisores y vídeos simonizador y dos bafles..., a 
precio de Amstrad. 
Las dimensiones del equipo son 
397 x 790 x 370 mm, pero para 
los que no dispongan de espacio 
para esta cadena pueden optar 
por el modelo Midi MS-45 de 
idénticas características al 
anterior, pero sin mueble 
(medidas: 360 x 230 x 330) y por 
sólo 30.000 ptas. 


- -----, 


Buena, bonita y 
barata 


La regla de las tres «b» 
la cumple la nueva 
impresora que comercializa 
Investrónica bajo la 
denominación. BX 1000. 
Compatible con cuaquier 
clónico de PC y, 
por supuesto, del Amstrad 
PC; esta impresora matricial 
de puntos permite la 
posibilidad de multitud de 
tipos de letras diferentes y 
sus diferentes combinaciones. 
Cuenta con un juego 
de caracteres muy completo: 
los 96 del código ASCII y, 
además, semi gráficos e 


... 


-......, 
- .......... " 


tJBMC 
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Verlo claro 


E stá demostrado que 
muchas horas delante del 
monitor de un ordenador 
puede resultar perjudicial 
para la vista. Evitado 
resulta casi imposible, 
pero para reducir ese 
dato existen los filtros de 
pantalla. En esta ocasión 
traemos a vuestras 
páginas el modelo 
Dataline, fabricado por 
Esselte Dymo en 
dimensiones 12 y 14 
pulgadas, que podéis 
encontrar en Infonnática- 
Papelería Plaza de Clastilla, 


internacionales (incluido el 
español). La alimentación del 
papel se realiza tanto 
por tracción como 
por fricción, disponiendo, 
además, de arrastradores 
ajustables para las 
distintas anchuras del papel 
continuo. La conexión 
con el ordenador se realiza a 
través de un protocolo 
paralelo o Centronic, por lo 
que será penectamente válida 
para el PC 1512 de 
Amstrad. La podréis 
encontrar en Informática- 
Papelería: Plaza de Castilla 
s/n, 28029 Madrid 
al precio de 
36.000 ptas. 
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28029 Madrid, a un precio 
respectivamente de 3.300 y 
4.000 ptas. Los filtros Dataline 
cuentan con un efecto 
antirreflectante y evitan la 
electricidad estática. 


Digitalízate 


Sin lugar a dudas, la moda 
de este año y del que viene en el 
campo de los ordenadores es la 
digitalización de imágenes. De 
Inglaterra ya tenemos noticia de 
la reciente comercialización de 
varios dispositivos en base a los 
Amstrad CPC y CPW para 
realizar esta función. En 
España, la pionera de esta 
técnica es «Micro Wolrd,,: 
Zurbano 76, 2001 O Madrid, con 
dos alternativas. Para esta 
ocasión os mostramos su Scanner 
que, como su propio nombre 
indica realiza, un «barrido" 
sobre cualquier documento o 
fotografía para plasmada en la 
pantalla de cualquier Amstrad 
CPC, con la posibilidad de 
realizar un volcado posterior en 
impresora o almacenamiento en 
disco o cassette. El barrido se 
realiza aprovechando una 
impresora compatible Epson (en 
la fotografía se ha recurrido a 
un Amstrad DMD 2000) que 
incluya arrastre por fricción: en 
su cabezal se acopla un pequeño 
sensor que manda la 
información de 10 que ve a un 
interface que se encarga de 
traducido en forma digital para 
su visualización por el 
ordenador. No sólo el mayor 
atractivo de «scanner" es su 
precio -16.690 ptas.-, sino la 
no necesidad de conectar al 
interface una cámara o aparato 
de vídeo doméstico que 
encarecería el sistema. 


Percusión en 
Amstrad 


P ara tocar la bat( ría tiene 
dos soluciones: oJ?ien adquirir 
ese costoso instrumento musical, 
o decidirte a adquirir en British 
Soft: Peñascales, 35; Madrid, por 
7.295 ptas. el sistema de 
percusión digital denominado 
Amdrum. Este interface con su 
respectivo software es totalmente 
compatible en cualquiera de los 
modelos Amstrad CPC 
464/472/664/6120, conectándolo 
al port trasero de expansión del 
ordenador. Del periférico sale un 
cable con conexión tipo RCA 
que se deberá conectar a un 
equipo Hi- Fi para la perfecta 
reproducción del sonido. 
El sistema permite una gama 
de ocho sonidos de percusión 
que, más que digitales parecen 
reales. Estos ocho sonidos pueden 
ser variados en tono escogiendo 
entre tres software s adicionales al 
precio de 1.295 ptas., que 
penniten la utilización en ritmos 
africanos, latinos (salsa) o, 
incluso, lo asimilan a una batería 
electrónica. 
Cualquier melodía podrá ser 
grabada como fichero tanto en 
disco como en cassette para su 
posterior reproducción, con un 
almacenamiento máximo de hasta 
1.000 ritmos. 
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Chain: Encadenamiento 


de programas desde disco 


Normalmente a la hora de diseñar y codificar un programa estamos 
pensando que al ponerse en marcha lo hará empezando a f!jecutarse 
interpretando y realizando las sentencias contenidas en la primera línea 
del mismo. 


H abd oca,ione, en la, que por divma, 
circunstancias no convendría comenzar por la 
primera instrucción sino que, quizá, lo más útil 
sería hacer que el programa comenzase por 
ejecutar una de las líneas intermedias. ¿ Será 
posible hacerla? La solución: el artículo que viene 
a continuación. 
Pongamos en plan práctico, que seguramente 
es bastante más entretenido que la pura teoría. 
Escriba despacito y con cuidado el maravilloso 
Programa l. 
Estamos seguros que, tras una breve ojeada, se 
quedará pensando que no es precisamente una 
perfecta obra de arte. Bueno, por una vez y sin 
que sirva de precedente le damos la razón: no es 
ninguna maravilla. 
Sencillamente se trata, simplemente, de una 
pequeña herramienta para comprobar la línea por 
la que comienza la ejecución del programa y una 
vez nos la haya visualizado en la pantalla, 
terminará. El END existente al final de cada 
línea se encargará que así sea. 
¿Lo tiene ya escrito? Vamos a guardarlo, 
entonces, en un soporte fIsico algo menos 
«volátih> (¿le suena la «palabreja,,?) que la 
memoria central del Amstrad. Le queremos decir 
con esto que si no tiene ningún inconveniente 
sería muy últil que «salvara» el programa en un 
disco o en una cinta magnética. ¿Recuerda? 
SA VE «PRUEBAh 


Una vez hecha esta operación ya podemos 
comenzar a jugar con él sin miedo a que nos 
toque volver a ponernos «dedos a la tecla» y 
escribir de nuevo todas y cada una de sus líneas 
tras haber efectuado alguna manipulación extraña 
que nos haya borrado alguna o, tal vez, todas las 
líneas del programa. 
Bien, ejecutémoslo. Si tecleamos: 
RUN 
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se pondrá en marcha el código que corresponda 
al listado que hemos introducido en la memoria. 
¿ Por dónde empezará? 
Si echamos un vistazo a los mensajes que 
aparecen en la pantalla todas nuestras dudas, SI 
es que existía alguna, quedarán despejadas: 
ESTE PROGRAMA SE EJECUTA DESDE LA 
LINEA 10 


Vale, ya sabemos que mediante el comando 
RUN todo comienza desde el principio. Pero, 
¿qué pasará si en lugar de ejecutar un programa 
ya residente en la memoria queremos echar a 
correr uno que esté almacenado en su cinta 
correspondiente? Sigamos las directrices que ya 
conocemos. Teclee, por ejemplo: 
RUN 


y observe sus efectos. 
Lo primero que vemos es que el programa 
pasa, o se carga, desde la memoria auxiliar 
(cinta) a la central que está dentro de su 
Amstrad. Y no sólo eso, sino que además se 
pone en funcionamiento automáticamente. ¿A 
partir de qué línea lo hace? 


Los programas que pueden realizarse con esta 
técnica pueden ser de una potencia 
desacostumbrada para el quehacer de un Z80 


N o es necesario ser un lince para darse cuenta 
de que el resultado final es el mismo q
e 
obtuvimos anteriomente. 


ESTE PROGRAMA SE EJECUTA DESDE LA 
LINEA 10 


O sea, que en ambos casos la ejecución del 
programa comienza por su primera línea tanto si 
ya lo tenemos en memoria como si lo cargamos 
desde el exterior. 



Nosotros no queríamos eso. Pretendemos que INICIACI N 
el «comienzo» no sea el «principio", o sea, que la . 
primera sentencia en ejecutarse no sea la que 
indica el programa. Pensemos un poquito. ¿Qué 
pasará si en lugar de dade a nuestro Amstrad la 
orden: 


RUN 


así, sin más, le indicamos además la línea por la 
que queremos comenzar? Suponemos, claro está, 
que ya existe un programa, por ejemplo el 
nuestro, residente en la memoria. 
O lo que es igual, escribimos: 
R UN 30 


si nuestra intención es empezar la ejecución por 
esa línea. 



 
\ 


o 


.. 


. 
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10 REM PROGRAMA 1 
20 PRINT"ESTE PROGRAMA SE EJECUTA DESDE LA LI
£A 10":t 
NO 
30 PRINT"AHORA COMENZAMOS EN LA 30":ENO 
40 PRINT"AHORA COMENZAMOS EN LA 40":ENO 
50 PRINT"AHORA COMENZAMOS EN LA 50":END 
60 REM PROGRAMA 11 
70 PRINT"AHORA COMENZAMOS EN LA 70":ENO 
80 PRINT"AHORA COMENZAMOS EN LA SO":END 
90 PRINT"AHORA COMENZAMOS EN LA 90":END 


10 REM PROGRAMA 1 
20 PRINT"ESTE PROGRAMA SE EJECUTA DESDE LA LINEA 10":£ 
NO 
60 REM PROGRAMA 11 
70 PRINT"AHORA COMENZAMOS EN LA 70":ENO 
SO PRINTHAHORA COMENZAMOS EN LA 80 H :ENú 
90 PRINT"AHORA COMENZAMOS EN LA 90":ENO 


Los efectos son inmediatos y positivos. En la 
pantalla se visualiza el mensaje que estábamos 
esperando: 
AHORA COMENZAMOS EN LA 30 


Es lo que queríamos, ¿no? Simplemente con 
añadir un número de línea detrás de la palabra 
clave RUN, le decimos al ordenador que 
comience a <<interpretar» el programa a partir de 
la que le estamos indicando en lugar de hacerla 
desde el principio. 


10 REM PROGRAMA 1 
20 PRINT"ESTE PROGRAMA SE EJECUTA DESDE LA LINfA 10":E 
NO 
30 PRINT"AHORA COMENZAMOS EN LA 30":END 
40 P!UNT"AHORA COMENZAMOS EN LA 40":END 
SO PRINT"AHORA COMENZAMOS EN LA SO":ENO 


60 REH PROGRAMA 11 
70 PRiNT"AHORA COMENZAMOS EN LA 7O":ENG 
SO PRINT"AHORA COMENZAMOS EN LA BO":END 
... 90 PRINí"AHORA COMENZAMOS EN LA 90":EN[I 
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Intente cambiar el número de línea por la que 
deseamos empezar y verá que tanto con: 
RUN 40 


como con: 


RUN 50 


los resultados obtenidos son los apetecidos (el 
Amstrad así nos lo advertirá). 
¡Ojo!, el número de la línea que añadimos tras 
el comando RUN ha de ser de las que formen 
parte del programa, ya que si no es así un 
fatídico, pero necesario, mensaje de error nos 
notificará lo que está ocurriendo, o sea que la 
línea por la que queremos comenzar no existe. 
Compruébelo tecleando: 
RUN 100 


En cualquiera de estos casos partimos de la 
base de que ya existe un programa dentro de la 
memoria. Supongamos que no es así. 
N ecesitamos cargar uno almacenado en el 
exterior para, luego, ejecutarlo comenzando por 
una determinada línea distinta de la inicial. 
Podemos probar a hacerla siguiendo dos 
posibles métodos. El primero consistirá en pasar 
el programa de la memoria auxiliar a la central y 
luego ejecutarlo con: 
R UN número de línea 
tal como hemos visto anteriormente. ¡Es sencillo! 


Para no cansar al procesador 
es aconsejable liberar parte de la memoria 
que esté ocupada por arrays 
no utilizados 



 
,-, 


Pero nosotros queremos ir más lejos. Uniremos 
estos dos pasos en uno y el Amstrad leerá un 
programa de una cinta o disco, lo cargará en la 
memoria sustituyendo al allí existente e iniciando 
su ejecución desde una línea esp
cífica como 
parámetro. Parece bastante sencillo, ¿no? 
Seguramente que la orden: 
RUN «PRUEBA1»,20 
hará todo lo que estamos diciendo. lnténtelo. 
Pero un: 


Syntax error 
nos indica todo lo contrario. ¿Podeemos deducir, 
entonces, que nuestro objetivo es inalcanzable? 
No, simplemente que no estamops utilizando el 
comando que el Amstrad tiene reservado para tal 
menester. Cambie su anterior orden por esta 
otra: 


CHAIN «PRUEBA1»,20 
jAhor<J. sí! El programa "PRUEBA 1», que 
previaménte habíamos «salvado» en una cinta (o 
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en un disco), se ha cargado en la memoria y su 
ejecución ha comenzado a partir de la línea 20, 
tal como queríamos. Haga todas las pruebas que 
se le ocurran con sólo cambiar el número de 
línea: es la mejor manera de comprobar el 
funcionamiento de este nuevo comando. 
Nos va a permitir, además, cargar y ejecutar 
cualquier programa Basic que esté protegido o 
salvado mediante la opción: 
SA VE «NOMBRE»,p 
Recuerde que este tipo de ficheros no se 
pueden primero cargar mediante: 
LOAD «NOMBRE» 


y después ejecutar con: 
RUN 


si no que debemos hacerla mediante: 
RUN «NOMBRE» 


ya que de hacerla siguiendo el primer métido el 
programa, una vez cargado, se borrará de la 
memoria no pudiendo nosotros, los pobres 
usuarios, acceder al listado. 
Bueno, pues con: 
CHAIN «NOMBRE», número de línea 
también podremos cargar y ejecutar los 
programas protegidos, pero esta vez a partir de la 
línea específica. 
U na advertencia: el programa se carga 
completo, sólo varía la línea de comienzo. No 
vayamos a pensar que no estamos pasando a la 
memoria la totalidad del mismo por el hecho de 
no empezar a ejecutarle por la primera 
instrucción. 
Sigamos complicando un poquito la cosa. 
Habíamos aprendido, en un artículo anterior, la 
manera de «mezclar» dos programas o añadir una 
serie de líneas, que teníamos ya salvadas en el 
disco o en la cinta, a otras residentes en la 
memoria centraL La orden MERGE usada 
convenientemente se encargaba de ello. ¿Por qué 
no empezar a pensar en la idea de hacer lo 
mismo pero consiguiendo que, una vez 
mezclados, también se empiece a ejecutar el 
programa resultante? 
Lo primero que vamos a hacer es inventarnos 
uno, pequeñito, compuesto por todas las 
instrucciones que queramos mezclar. Sería algo 
parecido al Programa II (complemento ideal del 
que estábamos utilizando para nuestras pruebas). 
Una vez codificado y tecleado. lo «salvamos» 
sencillamente con la orden: 


SA VE «PRUEBA2.. 


¿ Ya tenemos los dos guardados sin miedo de 
perderlos? Pues a reinicializar el ordenador, 
pulsando las tres teclas que ya sabemos, para 
estar seguros de que la memoria RAM de 
nuestro Amstrad queda limpia y en condiciones 
Carguemos el primero, como ya sabemos, y 



aseguremonos que está correcto. con todas sus 
líneas: 


I 
1 
I 


LOAD «PRUEBAh 
Si queremos mezclar el Programa 11, en lugar 
de usar MERGE, que añadiría las nuevas líneas 
pero no lo pondría en funcionamient.o, usamos 
esta orden que acabamos de descubnr en este 
artículo y veamos qué pasa. Tecleemos: 
CHAIN MERGE «PRUEBA2» 
¡Sorpresa! El Programa que resulta de ambos 
comienza a ejecutarse desde la primera línea tal 
como nos lo indica el mensaje: 
ESTE PROGRAMA SE EJECUTA DESDE LA 
LINEA 10 
'Se habrán mezclado realmente? Comprobarlo no 

iene que presentarle ningún problema, ¿verda
? 
Sacamos un listado de lo que hay en la memona 
con el comando LIST y obtendremos el conjunto 
de ambos tal como muestra el Programa 111. 
Para «rizar el rizo» sólo nos queda pensar que 
si a CHAIN MERG E le añadimos un número de 
línea, la ejecución del programa resultante no 
comenzaría por la primera instrucción, sino por 
que la que nosotros mismos le hayamos 
especificado. Matamos dos pájaros de un tiro: 
por un lado mezclamos las sentencias, 
ordenadamente claro, y por otro arrancamos no 
desde el comienzo, sino desde cualquier otra 
línea. ¿Lo intentamos? 
«Reseteamos» el ordenador por el mismo 
motivo de siempre. Cargamos el primer 
programa con: 


LOAD «PRUEBAh 


y a continuación probamos añadir un número de 
línea al nuevo comando: 
CHAIN MERGE «PRUEBA2»,60 
¡Funciona! La mezcla de ambos se ha puesto 
en marcha desde el lugar que habíamos elegido. 
Al menos el mensaje: 
AHORA COMENZAMOS EN LA 70 


así nos lo está indicando. 
¿Recuerda todas las cosas que hacía MERGE? 
Bueno, pues con CHAIN MERGE ocurre 
exactamente lo mismo: las nuevas líneas no sólo 
pueden añadirse, sino entremezclarse; las del 
segundo programa sustituyen a las que tuvieran 
el mismo número en el progrma original, etc., 
etc., etc. Y así todo lo que ya dijimos. Solamente 
hemos añadido como novedad el hecho de poner 
en funcionamiento la mezcla de ambos desde una 
línea en concreto que podemos elegir a nuestro 
gusto. Como siempre, haga distintas pruebas 
cambiando el origen. 
Como ya sabemos, el Basic del Amstrad es 
muy completo y nos tiene reservadas todavía más 
sorpresas. Con el comando CHAIN MERGE 
podremos, además, borrar parte del programa 
original antes de iniciar la carga del segundo. 


INICIACION 


Reinicialicemos de nuevo el ordenador para 
después volver a cargar el Programa 1: 
LOAD «PRUEBAh 


Pensamos ahora añdirle el Programa 11 pero 
además borrarle las líneas comprendidas entre la 
30 y la 50. Podemos hacerla directamente pero si 
usamos la nueva herramienta todo será más 
técnico. Manos a la obra. Escriba: 
CHAIN MERGE «PRUEBAL»,70,DELETE 
30-50 


De nuevo el programa se pone en mdrcha a 
partir de la línea 60 y llega a su fin. ¿Vemos el 
listado? Comprobaremos que de él han 
desaparecido las líneas que están dentro del 
margen 30 a 50 tal como habíamos elegido con Id 
opción DELETE y así nos lo muestra el 
Programa [V que resulta de la mezcla. 
Resumiento. Tenemos a nuestra disposición un 
comando (CHAIN) que lee un programa graba?o 
en un disco, o una cinta, lo carga en la memona 
sustituyendo al que existía e inici
 su ejec
ción 
desde el principio o desde cualqUier otra hnea 
deseada. 
Además hemos conocido otro que lo lec, lo 
carga en la memoria mezclándolo con el actual y 
empieza a ejecutar el resultante desde el punto 
que le digamos (CHAIN MERGE). y no queda 
ahí la cosa. También puede borrar un margen de 
líneas del original (DELETE). ¿Correcto? 
Bueno, por el momento lo dejamos. El 
próximo día seguiremos con nuestra andadura 
completando la «base» que nos permitirá 
continuar realizando buenos programas en 
«Basic». Adiós. 
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C-IO Convertidor de monitor en IV 


SI TO IZA. 
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Preparado para todos aquellos monitores con entrada RGB LINEAL 
o video compuesto: AMSTRAD, COMMODORE, PHILlPS, HANT AREX, etc. 
Convierte cualquier monitor en color con 
entrada RGB-LINEAL o PAL en una T. V. 
color de alta calidad de imagen. De un 
manejo. muy sencillo, no es necesario 
efectuar ninguna modificación en el 
monitor. Su uso no produce deterioro ni 
alteración alguna en el funcionamiento 
del monitor y su diseño le hace 
perfectamente acoplable debajo del 
mismo. 


ESPECIFICACIONES: 


· 3 bandas 


· Presintonía de 8 canales 


· Salida RGB-LlNEAL 


· Entrada y salida de video 
· Entrada y salida de audio 
· Amplificador de sonido y altavoz incorporados 
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